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