re PR fortran/38252 (Empty function with CONTAINS triggers Internal Error)

2008-12-01  Mikael Morin  <mikael.morin@tele2.fr>

	PR fortran/38252
	* gfortran.dg/empty_function_1.f90: Fix latest commit.

From-SVN: r142331
This commit is contained in:
Mikael Morin 2008-12-01 20:52:15 +01:00 committed by Mikael Morin
parent bf8ba8ab41
commit 910fa7ebcc
2 changed files with 5 additions and 20 deletions

View file

@ -1,3 +1,8 @@
2008-12-01 Mikael Morin <mikael.morin@tele2.fr>
PR fortran/38252
* gfortran.dg/empty_function_1.f90: Fix latest commit.
2008-12-01 Mikael Morin <mikael.morin@tele2.fr>
PR fortran/38252

View file

@ -8,23 +8,3 @@
INTEGER FUNCTION test ()
CONTAINS
END FUNCTION test
! { dg-do compile }
!
! PR fortran/38252
! FUNCTION rejected if both specification and execution part are empty
!
! Contributed by Daniel Kraft <d@domob.eu>
INTEGER FUNCTION test ()
CONTAINS
END FUNCTION test
! { dg-do compile }
!
! PR fortran/38252
! FUNCTION rejected if both specification and execution part are empty
!
! Contributed by Daniel Kraft <d@domob.eu>
INTEGER FUNCTION test ()
CONTAINS
END FUNCTION test