mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
10 lines
309 B
Fortran
10 lines
309 B
Fortran
! { 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
|