! { dg-do compile } | |
! PR fortran/68153 | |
! Original code contribute by Gerhard Steinmetz | |
! <gerhard dot steinmetz dot fortran at t-online dot de> | |
! | |
program foo | |
integer, parameter :: a(2) = [2, -2] | |
integer, parameter :: b(2,2) = reshape([1, 2, 3, 4], a) ! { dg-error "cannot be negative" } | |
end program foo |