From b68fe99446924d7a128ffceec09d2644055880ea Mon Sep 17 00:00:00 2001 From: Paul Thomas Date: Fri, 21 Oct 2005 04:33:09 +0000 Subject: [PATCH] re PR fortran/24440 (gfortran failed to build 187.facerec) 2005-10-21 Paul Thomas PR fortran/24440 * gfortran.dg/assumed_size_dt_dummy.f90: Add test for scalar case. From-SVN: r105715 --- gcc/testsuite/ChangeLog | 5 +++++ .../gfortran.dg/assumed_size_dt_dummy.f90 | 18 +++++++++++------- 2 files changed, 16 insertions(+), 7 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 1ba72c7f7f9..af14116ef71 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2005-10-21 Paul Thomas + + PR fortran/24440 + * gfortran.dg/assumed_size_dt_dummy.f90: Add test for scalar case. + 2005-10-20 Geoffrey Keating * obj-c++.dg/except-1.mm: New. diff --git a/gcc/testsuite/gfortran.dg/assumed_size_dt_dummy.f90 b/gcc/testsuite/gfortran.dg/assumed_size_dt_dummy.f90 index f7b5e299567..9e9e9b80248 100644 --- a/gcc/testsuite/gfortran.dg/assumed_size_dt_dummy.f90 +++ b/gcc/testsuite/gfortran.dg/assumed_size_dt_dummy.f90 @@ -1,13 +1,17 @@ ! { dg-do compile } ! PR20853 - No array size information for initializer. +! PR24440 - patch for PR20853 caused a segfault at line 12. ! Contributed by Joost VandeVondele MODULE TEST -TYPE init -INTEGER :: I=0 -END TYPE init + TYPE init + INTEGER :: I=0 + END TYPE init CONTAINS -SUBROUTINE try(A) ! { dg-error "cannot have a default initializer" } - TYPE(init), DIMENSION(*), INTENT(OUT) :: A -END SUBROUTINE try + SUBROUTINE try (A, B) ! { dg-error "cannot have a default initializer" } + TYPE(init), DIMENSION(*), INTENT(OUT) :: A + TYPE(init) , INTENT(OUT) :: B ! PR24440 => segfault + END SUBROUTINE try END MODULE TEST -END + +end + -- 2.30.2