2007-07-24 Daniel Franke <franke.daniel@gmail.com>
+ PR fortran/32867
+ * expr.c (check_init_expr): Simplify matched functions.
+
+2007-07-24 Daniel Franke <franke.daniel@gmail.com>
+
PR fortran/32778
* intrinsic.c (add_sym): Do not exclude any symbols, even if not part
of the selected standard.
2007-07-24 Daniel Franke <franke.daniel@gmail.com>
+ PR fortran/32867
+ * fortran.dg/initialization_10.f90: New test.
+
+2007-07-24 Daniel Franke <franke.daniel@gmail.com>
+
PR fortran/32778
* gfortran.dg/imag_2.f: Removed
* gfortran.dg/warn_std_1.f90: New test.
--- /dev/null
+! { dg-do compile }
+!
+! PR fortran/32867 - nested initialization expression not simplified
+!
+! Testcase contributed by H. J. Lu <hjl AT lucon DOT org>
+!
+
+MODULE Readdata_mod
+IMPLICIT NONE
+Private
+Public Parser
+ integer, parameter :: nkeywords = 2
+character(80), PARAMETER, dimension(1:nkeywords) :: keywords = &
+(/'PROBLEMSIZE ', &
+ 'NFTRANS_TD '/)
+
+CONTAINS
+SUBROUTINE Parser(nx, ny, keyword)
+integer, intent(inout) :: nx, ny
+character(80), intent(inout) :: keyword
+
+select case (keyword)
+ case (trim(keywords(1))) ! PROBLEMSIZE
+ nx = 1
+ case (trim(keywords(2))) !'NFTRANS_TD'
+ ny = 1
+end select
+
+END SUBROUTINE Parser
+END MODULE Readdata_mod
+
+! { dg-final { cleanup-modules "Readdata_mod" } }