From 910fa7ebcc4473c357778bb061f6e2500832202f Mon Sep 17 00:00:00 2001 From: Mikael Morin Date: Mon, 1 Dec 2008 20:52:15 +0100 Subject: [PATCH] re PR fortran/38252 (Empty function with CONTAINS triggers Internal Error) 2008-12-01 Mikael Morin PR fortran/38252 * gfortran.dg/empty_function_1.f90: Fix latest commit. From-SVN: r142331 --- gcc/testsuite/ChangeLog | 5 +++++ .../gfortran.dg/empty_function_1.f90 | 20 ------------------- 2 files changed, 5 insertions(+), 20 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index b326f1895f1..aafa7c022c5 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-12-01 Mikael Morin + + PR fortran/38252 + * gfortran.dg/empty_function_1.f90: Fix latest commit. + 2008-12-01 Mikael Morin PR fortran/38252 diff --git a/gcc/testsuite/gfortran.dg/empty_function_1.f90 b/gcc/testsuite/gfortran.dg/empty_function_1.f90 index a9cc1859e22..1556a509091 100644 --- a/gcc/testsuite/gfortran.dg/empty_function_1.f90 +++ b/gcc/testsuite/gfortran.dg/empty_function_1.f90 @@ -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 - -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 - -INTEGER FUNCTION test () -CONTAINS -END FUNCTION test -- 2.30.2