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 |
+ |