OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/24440 (gfortran failed to build 187.facerec)

Browse Source 
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
This commit is contained in:
Paul Thomas 2005-10-21 04:33:09 +00:00
parent e9bf587a8f
commit b68fe99446
2 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -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.

18
gcc/testsuite/gfortran.dg/assumed_size_dt_dummy.f90
View File

@ -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