gcc/testsuite/gfortran.dg/spread_bounds_1.f90

   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