diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/array_constructor_49.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/array_constructor_49.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/array_constructor_49.f90 b/gcc/testsuite/gfortran.dg/array_constructor_49.f90 index 0f5036a03da..bfba188e9dc 100644 --- a/gcc/testsuite/gfortran.dg/array_constructor_49.f90 +++ b/gcc/testsuite/gfortran.dg/array_constructor_49.f90 @@ -7,6 +7,6 @@ program t integer :: ndim=2, ndfp=4, i character (len=8) :: line write (unit=line,fmt='(4I2)') (/ ( i, i = 1, ndfp ) /) + ndim - if (line /= ' 3 4 5 6') call abort + if (line /= ' 3 4 5 6') STOP 1 end program t ! { dg-final { scan-tree-dump-times "__var" 3 "original" } } |