Mercurial > hg > CbC > CbC_gcc

annotate 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
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do run }
kono
parents:
diff changeset
2 ! { dg-options "-fbounds-check" }
kono
parents:
diff changeset
3 ! { dg-shouldfail "Incorrect extent in return value of SPREAD intrinsic in dimension 2: is 3, should be 2" }
kono
parents:
diff changeset
4 program main
kono
parents:
diff changeset
5 integer :: source(2), target(2,3)
kono
parents:
diff changeset
6 data source /1,2/
kono
parents:
diff changeset
7 integer :: times
kono
parents:
diff changeset
8 times = 2
kono
parents:
diff changeset
9 target = spread(source,2,times)
kono
parents:
diff changeset
10 end program main
kono
parents:
diff changeset
11 ! { dg-output "Fortran runtime error: Incorrect extent in return value of SPREAD intrinsic in dimension 2: is 3, should be 2" }
kono
parents:
diff changeset
12