RISC-V: Regenerate opt urls.
[official-gcc.git] / gcc / testsuite / gfortran.dg / array_4.f90
blob869522af08f54c5170e78975ef417d89ddca48d0
1 ! { dg-do compile }
2 ! PR fortran/36824
4 ! Dimension of tgclist was not recognized as having constant bounds
6 program test
7 implicit none
8 integer, dimension( 3 ), parameter :: tgc = (/5, 6, 7 /)
9 type tgccomp
10 integer, dimension( tgc( 1 ) : tgc( 2 ) ) :: tgclist
11 end type tgccomp
12 end program