diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/namelist_61.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/namelist_61.f90 | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/testsuite/gfortran.dg/namelist_61.f90 b/gcc/testsuite/gfortran.dg/namelist_61.f90 index c7214dd2bb9..1c918fac43d 100644 --- a/gcc/testsuite/gfortran.dg/namelist_61.f90 +++ b/gcc/testsuite/gfortran.dg/namelist_61.f90 @@ -9,23 +9,23 @@ namelist /nml/a a = -1 str = '&nml a(1,:) = 1 2 3 /' read(str, nml=nml) -if (any (a(1,:) /= [1, 2, 3])) call abort () -if (any (a([2,3],:) /= -1)) call abort () +if (any (a(1,:) /= [1, 2, 3])) STOP 1 +if (any (a([2,3],:) /= -1)) STOP 2 a = -1 str = '&nml a(1,1) = 1 2 3 4 /' read(str, nml=nml) -if (any (a(:,1) /= [1, 2, 3])) call abort () -if (any (a(:,2) /= [4, -1, -1])) call abort () -if (any (a(:,3) /= -1)) call abort () +if (any (a(:,1) /= [1, 2, 3])) STOP 3 +if (any (a(:,2) /= [4, -1, -1])) STOP 4 +if (any (a(:,3) /= -1)) STOP 5 str = '&nml a(1,:) = 1 2 3 , & & a(2,:) = 4,5,6 & & a(3,:) = 7 8 9/' read(str, nml=nml) -if (any (a(1,:) /= [1, 2, 3])) call abort () -if (any (a(2,:) /= [4, 5, 6])) call abort () -if (any (a(3,:) /= [7, 8, 9])) call abort () +if (any (a(1,:) /= [1, 2, 3])) STOP 6 +if (any (a(2,:) /= [4, 5, 6])) STOP 7 +if (any (a(3,:) /= [7, 8, 9])) STOP 8 !print *, a(:,1) !print *, a(:,2) |