diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/internal_dummy_2.f08')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/internal_dummy_2.f08 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/testsuite/gfortran.dg/internal_dummy_2.f08 b/gcc/testsuite/gfortran.dg/internal_dummy_2.f08 index 2d2ec6837b7..5137b6cd9a4 100644 --- a/gcc/testsuite/gfortran.dg/internal_dummy_2.f08 +++ b/gcc/testsuite/gfortran.dg/internal_dummy_2.f08 @@ -1,5 +1,5 @@ ! { dg-do run } -! { dg-options "-std=f2008 -fall-intrinsics" } +! { dg-options "-std=f2008 " } ! PR fortran/34162 ! Internal procedures as actual arguments (like restricted closures). @@ -43,10 +43,10 @@ PROGRAM main INTEGER :: a a = 42 - IF (callIt (myA) /= 42) CALL abort () + IF (callIt (myA) /= 42) STOP 1 CALL callSub (incA) - IF (a /= 43) CALL abort () + IF (a /= 43) STOP 2 CONTAINS |