Imported Upstream version 4.8.1

[platform/upstream/gcc48.git] / gcc / testsuite / gfortran.dg / proc_ptr_comp_32.f90

diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_comp_32.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_comp_32.f90
index eda972a..c1d01c5 100644 (file)
--- a/gcc/testsuite/gfortran.dg/proc_ptr_comp_32.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_comp_32.f90
@@ -33,5 +33,3 @@ use m
 type(rectangle) :: rect
 rect%get_special_area => get_my_area  ! { dg-error "Interface mismatch in procedure pointer assignment" }
 end
-
-! { dg-final { cleanup-modules "m" } }