1! { dg-do compile } 2! 3! PR fortran/32867 - nested initialization expression not simplified 4! 5! Testcase contributed by H. J. Lu <hjl AT lucon DOT org> 6! 7 8MODULE Readdata_mod 9IMPLICIT NONE 10Private 11Public Parser 12 integer, parameter :: nkeywords = 2 13character(80), PARAMETER, dimension(1:nkeywords) :: keywords = & 14(/'PROBLEMSIZE ', & 15 'NFTRANS_TD '/) 16 17CONTAINS 18SUBROUTINE Parser(nx, ny, keyword) 19integer, intent(inout) :: nx, ny 20character(80), intent(inout) :: keyword 21 22select case (keyword) 23 case (trim(keywords(1))) ! PROBLEMSIZE 24 nx = 1 25 case (trim(keywords(2))) !'NFTRANS_TD' 26 ny = 1 27end select 28 29END SUBROUTINE Parser 30END MODULE Readdata_mod 31