| Index: gcc/gcc/testsuite/gfortran.dg/char_pointer_dummy.f90
|
| diff --git a/gcc/gcc/testsuite/gfortran.dg/char_pointer_dummy.f90 b/gcc/gcc/testsuite/gfortran.dg/char_pointer_dummy.f90
|
| index 1935de51113818044c4c0fa98f201bcbfd4d7a72..b533a1cb98c7caf34aa0bb5adeacaa2aae586ac1 100644
|
| --- a/gcc/gcc/testsuite/gfortran.dg/char_pointer_dummy.f90
|
| +++ b/gcc/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
|
| +end program char_pointer_dummy
|
| +
|
|
|