diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/scalarize_parameter_array_1.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/scalarize_parameter_array_1.f90 | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/testsuite/gfortran.dg/scalarize_parameter_array_1.f90 b/gcc/testsuite/gfortran.dg/scalarize_parameter_array_1.f90 index 86bc92df47a..eeda602380a 100644 --- a/gcc/testsuite/gfortran.dg/scalarize_parameter_array_1.f90 +++ b/gcc/testsuite/gfortran.dg/scalarize_parameter_array_1.f90 @@ -11,17 +11,17 @@ program matrix real,dimension(2,2)::m, n m=f()+c - if (any (m .ne. reshape((/2,3,4,5/),(/2,2/)))) call abort () + if (any (m .ne. reshape((/2,3,4,5/),(/2,2/)))) STOP 1 m=c+f() - if (any (m .ne. reshape((/2,3,4,5/),(/2,2/)))) call abort () + if (any (m .ne. reshape((/2,3,4,5/),(/2,2/)))) STOP 2 call sub(m+f()) - if (any (n .ne. reshape((/3,4,5,6/),(/2,2/)))) call abort () + if (any (n .ne. reshape((/3,4,5,6/),(/2,2/)))) STOP 3 call sub(c+m) - if (any (n .ne. reshape((/3,5,7,9/),(/2,2/)))) call abort () + if (any (n .ne. reshape((/3,5,7,9/),(/2,2/)))) STOP 4 call sub(f()+c) - if (any (n .ne. reshape((/2,3,4,5/),(/2,2/)))) call abort () + if (any (n .ne. reshape((/2,3,4,5/),(/2,2/)))) STOP 5 call sub(c+f()) - if (any (n .ne. reshape((/2,3,4,5/),(/2,2/)))) call abort () + if (any (n .ne. reshape((/2,3,4,5/),(/2,2/)))) STOP 6 contains |