Index: gcc/gcc/testsuite/gfortran.dg/streamio_2.f90 |
diff --git a/gcc/gcc/testsuite/gfortran.dg/streamio_2.f90 b/gcc/gcc/testsuite/gfortran.dg/streamio_2.f90 |
index a7d5d3ccfaa262a1ca06992761dae1f1dee13953..8260a7481c92a06a5095db94ad7e63a71bfeea77 100644 |
--- a/gcc/gcc/testsuite/gfortran.dg/streamio_2.f90 |
+++ b/gcc/gcc/testsuite/gfortran.dg/streamio_2.f90 |
@@ -1,4 +1,6 @@ |
! { dg-do run } |
+! { dg-options "-std=legacy" } |
+! |
! PR25828 Stream IO test 2 |
! Contributed by Jerry DeLisle <jvdelisle@verizon.net>. |
PROGRAM readUstream |
@@ -16,4 +18,5 @@ PROGRAM readUstream |
if (string.ne."rst") call abort() |
if (n.ne.7) call abort() |
close(unit=11, status="delete") |
-END PROGRAM readUstream |
+END PROGRAM readUstream |
+ |