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" } 4program 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) 10end 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 13