3 ! PR fortran/32867 - nested initialization expression not simplified
5 ! Testcase contributed by H. J. Lu <hjl AT lucon DOT org>
12 integer, parameter :: nkeywords
= 2
13 character(80), PARAMETER, dimension(1:nkeywords
) :: keywords
= &
18 SUBROUTINE Parser(nx
, ny
, keyword
)
19 integer, intent(inout
) :: nx
, ny
20 character(80), intent(inout
) :: keyword
23 case (trim(keywords(1))) ! PROBLEMSIZE
25 case (trim(keywords(2))) !'NFTRANS_TD'
30 END MODULE Readdata_mod
32 ! { dg-final { cleanup-modules "Readdata_mod" } }