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