fortran/

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / derived_function_interface_1.f90

diff --git a/gcc/testsuite/gfortran.dg/derived_function_interface_1.f90 b/gcc/testsuite/gfortran.dg/derived_function_interface_1.f90
index 2cee73c..09916be 100644 (file)
--- a/gcc/testsuite/gfortran.dg/derived_function_interface_1.f90
+++ b/gcc/testsuite/gfortran.dg/derived_function_interface_1.f90
@@ -37,4 +37,4 @@ contains
   type(foo) function fun() ! { dg-error "already has an explicit interface" }
   end function fun  ! { dg-error "Expecting END PROGRAM" }
 
-end
+end ! { dg-warning "CONTAINS statement without FUNCTION or SUBROUTINE statement" }