diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/char_pointer_dummy.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/char_pointer_dummy.f90 | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/char_pointer_dummy.f90 b/gcc/testsuite/gfortran.dg/char_pointer_dummy.f90 index 1935de51113..b533a1cb98c 100644 --- a/gcc/testsuite/gfortran.dg/char_pointer_dummy.f90 +++ b/gcc/testsuite/gfortran.dg/char_pointer_dummy.f90 @@ -1,4 +1,6 @@ ! { dg-do run } +! { dg-options "-std=legacy" } +! program char_pointer_dummy
! Test character pointer dummy arguments, required
! to fix PR16939 and PR18689
@@ -30,4 +32,5 @@ contains character*4, pointer :: ac1(:)
if (ac1(1) /= "wxyz") call abort ()
end subroutine afoo
-end program char_pointer_dummy
\ No newline at end of file +end program char_pointer_dummy + |