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