gcc/testsuite/gfortran.dg/initialization_10.f90

   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
   9 MODULE Readdata_mod
  10 IMPLICIT NONE
  11 Private
  12 Public Parser
  13   integer, parameter :: nkeywords = 2
  14 character(80), PARAMETER, dimension(1:nkeywords) :: keywords = &
  15 (/'PROBLEMSIZE                                  ',             &
  16   'NFTRANS_TD                                   '/)
  17
  18 CONTAINS
  19 SUBROUTINE Parser(nx, ny, keyword)
  20 integer, intent(inout) :: nx, ny
  21 character(80), intent(inout) :: keyword
  22
  23 select case (keyword)
  24   case (trim(keywords(1))) ! PROBLEMSIZE
  25     nx = 1
  26   case (trim(keywords(2))) !'NFTRANS_TD'
  27     ny = 1
  28 end select
  29
  30 END SUBROUTINE Parser
  31 END MODULE Readdata_mod