Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/spread_bounds_1.f90 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 ! { dg-do run }
2 ! { dg-options "-fbounds-check" }
3 ! { dg-shouldfail "Incorrect extent in return value of SPREAD intrinsic in dimension 2: is 3, should be 2" }
4 program main
5 integer :: source(2), target(2,3)
6 data source /1,2/
7 integer :: times
8 times = 2
9 target = spread(source,2,times)
10 end program main
11 ! { dg-output "Fortran runtime error: Incorrect extent in return value of SPREAD intrinsic in dimension 2: is 3, should be 2" }
12