OSDN Git Service

gcc/fortran:
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / initialization_10.f90
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
8 MODULE Readdata_mod
9 IMPLICIT NONE
10 Private
11 Public Parser
12   integer, parameter :: nkeywords = 2
13 character(80), PARAMETER, dimension(1:nkeywords) :: keywords = &
14 (/'PROBLEMSIZE                                  ',             &
15   'NFTRANS_TD                                   '/)
16
17 CONTAINS
18 SUBROUTINE Parser(nx, ny, keyword)
19 integer, intent(inout) :: nx, ny
20 character(80), intent(inout) :: keyword
21
22 select case (keyword)
23   case (trim(keywords(1))) ! PROBLEMSIZE
24     nx = 1
25   case (trim(keywords(2))) !'NFTRANS_TD'
26     ny = 1
27 end select
28
29 END SUBROUTINE Parser
30 END MODULE Readdata_mod
31
32 ! { dg-final { cleanup-modules "Readdata_mod" } }