* gfortran.dg/func_derived_4.f90: Fix module cleanup.
* gfortran.dg/gomp/appendix-a/a.22.4.f90: Clean up modules.
* gfortran.dg/gomp/appendix-a/a.26.2.f90: Likewise.
* gfortran.dg/gomp/appendix-a/a.32.1.f90: Likewise.
* gfortran.dg/overload_1.f90: Likewise.
* gfortran.dg/impure_assignment_1.f90: Likewise.
* gfortran.dg/error_recovery_3.f90: Likewise.
* gfortran.dg/alloc_comp_basics_1.f90: Likewise.
* gfortran.dg/sequence_types_1.f90: Likewise.
* gfortran.dg/internal_references_1.f90: Likewise.
* gfortran.dg/present_1.f90: Likewise.
* gfortran.dg/volatile10.f90: Likewise.
* gfortran.dg/module_equivalence_2.f90: Likewise.
* gfortran.dg/use_4.f90: Likewise.
* gfortran.dg/elemental_result_1.f90: Likewise.
* gfortran.dg/generic_actual_arg.f90: Likewise.
* gfortran.dg/private_type_5.f90: Likewise.
* gfortran.dg/protected_4.f90: Likewise.
* gfortran.dg/interface_3.f90: Likewise.
From-SVN: r123225
+2007-03-26 Brooks Moses <brooks.moses@codesourcery.com>
+
+ * gfortran.dg/func_derived_4.f90: Fix module cleanup.
+ * gfortran.dg/gomp/appendix-a/a.22.4.f90: Clean up modules.
+ * gfortran.dg/gomp/appendix-a/a.26.2.f90: Likewise.
+ * gfortran.dg/gomp/appendix-a/a.32.1.f90: Likewise.
+ * gfortran.dg/overload_1.f90: Likewise.
+ * gfortran.dg/impure_assignment_1.f90: Likewise.
+ * gfortran.dg/error_recovery_3.f90: Likewise.
+ * gfortran.dg/alloc_comp_basics_1.f90: Likewise.
+ * gfortran.dg/sequence_types_1.f90: Likewise.
+ * gfortran.dg/internal_references_1.f90: Likewise.
+ * gfortran.dg/present_1.f90: Likewise.
+ * gfortran.dg/volatile10.f90: Likewise.
+ * gfortran.dg/module_equivalence_2.f90: Likewise.
+ * gfortran.dg/use_4.f90: Likewise.
+ * gfortran.dg/elemental_result_1.f90: Likewise.
+ * gfortran.dg/generic_actual_arg.f90: Likewise.
+ * gfortran.dg/private_type_5.f90: Likewise.
+ * gfortran.dg/protected_4.f90: Likewise.
+ * gfortran.dg/interface_3.f90: Likewise.
+
2007-03-26 Uros Bizjak <ubizjak@gmail.com>
* lib/gcc-dg.exp (gcc-dg-debug-runtest): Remove build file trivial.S.
end program alloc
! { dg-final { scan-tree-dump-times "deallocate" 33 "original" } }
! { dg-final { cleanup-tree-dump "original" } }
+! { dg-final { cleanup-modules "alloc_m" } }
INTEGER, pointer :: MM ! { dg-error "conflicts with ELEMENTAL" }
END FUNCTION MM
END MODULE Test
-
+! { dg-final { cleanup-modules "Test" } }
INTEGER :: I
END MODULE M1
-USE M1, ONLY: I,&! { dg-error "Missing" }
\ No newline at end of file
+USE M1, ONLY: I,&! { dg-error "Missing" }
+! { dg-final { cleanup-modules "M1" } }
+
mshp => msh_(quality)
end program test_pnt
-! { dg-final { cleanup-modules "class_mesh class_scalar_field class_mesh" } }
+! { dg-final { cleanup-modules "class_mesh class_field class_scalar_field" } }
END
SUBROUTINE F()
-END SUBROUTINE
\ No newline at end of file
+END SUBROUTINE
+! { dg-final { cleanup-modules "TEST" } }
!$OMP THREADPRIVATE(/T/) ! { dg-error "COMMON block" }
!non-conforming because /T/ not declared in A22_4_WRONG
END SUBROUTINE A22_4_WRONG
+! { dg-final { cleanup-modules "A22_MODULE" } }
!$OMP END PARALLEL DO
END SUBROUTINE F
END MODULE A26_2
+! { dg-final { cleanup-modules "A26_2" } }
ALLOCATE(WORK(SIZE))
WORK = TOL
END SUBROUTINE BUILD
+! { dg-final { cleanup-modules "M" } }
TYPE(T1), INTENT(IN) :: J
I=J ! { dg-error "must be PURE" }
END SUBROUTINE S2
-END
\ No newline at end of file
+END
+! { dg-final { cleanup-modules "M1" } }
+
print *, my_fun (a) ! { dg-error "ambiguous reference" }
end subroutine his_fun
-! { dg-final { cleanup-modules "test_mod" } }
+! { dg-final { cleanup-modules "test_mod test_mod2" } }
bar = 1.0
end function bar
end program test
-
+! { dg-final { cleanup-modules "m" } }
reM = 0.57d1
if (M .ne. 0.57d1) call abort ()
end
+! { dg-final { cleanup-modules "a b" } }
& abort
end subroutine checku
end program main
+! { dg-final { cleanup-modules "m" } }
END SUBROUTINE S1
END MODULE
END
-
+! { dg-final { cleanup-modules "M1" } }
ir%i = i
end subroutine init
end subroutine sub
-end module test
\ No newline at end of file
+end module test
+! { dg-final { cleanup-modules "test" } }
protected :: test ! { dg-error "MODULE attribute conflicts with PROTECTED" }
end module test
-! { dg-final { cleanup-modules "protmod" } }
+! { dg-final { cleanup-modules "protmod test" } }
Integer(kindInt), dimension(:), pointer :: subset
end type GroupDefLL
end module data_types
+! { dg-final { cleanup-modules "data_types" } }
use foo, only: i => foo! { dg-error "been used as an external module name" }
use foo, only: foo => i! { dg-error "been used as an external module name" }
end program
+! { dg-final { cleanup-modules "foo bar test test2 test3" } }
! TODO: dg-final { scan-tree-dump-not "main_test2_3" "optimized" }
! { dg-final { scan-tree-dump "main_test2_4" "optimized" } }
! { dg-final { cleanup-tree-dump "optimized" } }
-! { dg-final { cleanup-modules "one two" } }
+! { dg-final { cleanup-modules "impl one two" } }