RISC-V: Regenerate opt urls.
[official-gcc.git] / gcc / testsuite / gfortran.dg / pr68153.f90
blob46a3bc029d7167e3ecc351831ca3725d2090c33f
1 ! { dg-do compile }
2 ! PR fortran/68153
3 ! Original code contribute by Gerhard Steinmetz
4 ! <gerhard dot steinmetz dot fortran at t-online dot de>
6 program foo
7 integer, parameter :: a(2) = [2, -2]
8 integer, parameter :: b(2,2) = reshape([1, 2, 3, 4], a) ! { dg-error "negative" }
9 end program foo