13 lines
293 B
Fortran
13 lines
293 B
Fortran
! { dg-do compile }
|
|
! PR fortran/36824
|
|
!
|
|
! Dimension of tgclist was not recognized as having constant bounds
|
|
!
|
|
program test
|
|
implicit none
|
|
integer, dimension( 3 ), parameter :: tgc = (/5, 6, 7 /)
|
|
type tgccomp
|
|
integer, dimension( tgc( 1 ) : tgc( 2 ) ) :: tgclist
|
|
end type tgccomp
|
|
end program
|