diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2005-10-21 04:33:09 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2005-10-21 04:33:09 +0000 |
| commit | b68fe99446924d7a128ffceec09d2644055880ea (patch) | |
| tree | aa26a7855b88f819cdfedc519fc7112c14fec7cb /gcc | |
| parent | e9bf587a8f548c1e05658021d144a5414485a731 (diff) | |
| download | gcc-b68fe99446924d7a128ffceec09d2644055880ea.zip gcc-b68fe99446924d7a128ffceec09d2644055880ea.tar.gz gcc-b68fe99446924d7a128ffceec09d2644055880ea.tar.bz2 | |
re PR fortran/24440 (gfortran failed to build 187.facerec)
2005-10-21 Paul Thomas <pault@gcc.gnu.org>
PR fortran/24440
* gfortran.dg/assumed_size_dt_dummy.f90: Add test for scalar case.
From-SVN: r105715
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/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 1ba72c7..af14116 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2005-10-21 Paul Thomas <pault@gcc.gnu.org> + + PR fortran/24440 + * gfortran.dg/assumed_size_dt_dummy.f90: Add test for scalar case. + 2005-10-20 Geoffrey Keating <geoffk@apple.com> * 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 f7b5e29..9e9e9b8 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 <jv244@cam.ac.uk> 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 + |