From 2ada56f5a04e2c939901d47ef71abf16810cdd78 Mon Sep 17 00:00:00 2001 From: Jakub Jelinek Date: Wed, 21 Mar 2007 20:43:14 +0100 Subject: [PATCH] a.22.8.f90: Add dg-final cleanup-modules line. * testsuite/libgomp.fortran/appendix-a/a.22.8.f90: Add dg-final cleanup-modules line. * testsuite/libgomp.fortran/appendix-a/a.40.1.f90: Likewise. * testsuite/libgomp.fortran/appendix-a/a.31.5.f90: Likewise. * testsuite/libgomp.fortran/appendix-a/a.31.4.f90: Likewise. * testsuite/libgomp.fortran/threadprivate2.f90: Likewise. * testsuite/libgomp.fortran/reduction5.f90: Likewise. * testsuite/libgomp.fortran/threadprivate3.f90: Likewise. * testsuite/libgomp.fortran/threadprivate1.f90: Likewise. From-SVN: r123116 --- libgomp/ChangeLog | 12 ++++++++++++ .../testsuite/libgomp.fortran/appendix-a/a.22.8.f90 | 1 + .../testsuite/libgomp.fortran/appendix-a/a.31.4.f90 | 2 ++ .../testsuite/libgomp.fortran/appendix-a/a.31.5.f90 | 2 ++ .../testsuite/libgomp.fortran/appendix-a/a.40.1.f90 | 2 ++ libgomp/testsuite/libgomp.fortran/reduction5.f90 | 2 ++ libgomp/testsuite/libgomp.fortran/threadprivate1.f90 | 2 ++ libgomp/testsuite/libgomp.fortran/threadprivate2.f90 | 2 ++ libgomp/testsuite/libgomp.fortran/threadprivate3.f90 | 2 ++ 9 files changed, 27 insertions(+) diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog index 782bb4f467b..1f5c511f8b5 100644 --- a/libgomp/ChangeLog +++ b/libgomp/ChangeLog @@ -1,3 +1,15 @@ +2007-03-21 Jakub Jelinek + + * testsuite/libgomp.fortran/appendix-a/a.22.8.f90: Add + dg-final cleanup-modules line. + * testsuite/libgomp.fortran/appendix-a/a.40.1.f90: Likewise. + * testsuite/libgomp.fortran/appendix-a/a.31.5.f90: Likewise. + * testsuite/libgomp.fortran/appendix-a/a.31.4.f90: Likewise. + * testsuite/libgomp.fortran/threadprivate2.f90: Likewise. + * testsuite/libgomp.fortran/reduction5.f90: Likewise. + * testsuite/libgomp.fortran/threadprivate3.f90: Likewise. + * testsuite/libgomp.fortran/threadprivate1.f90: Likewise. + 2007-03-18 Andreas Schwab * acinclude.m4: Adjust regular expression for ld version diff --git a/libgomp/testsuite/libgomp.fortran/appendix-a/a.22.8.f90 b/libgomp/testsuite/libgomp.fortran/appendix-a/a.22.8.f90 index cf6d90ee828..18c812ac46d 100644 --- a/libgomp/testsuite/libgomp.fortran/appendix-a/a.22.8.f90 +++ b/libgomp/testsuite/libgomp.fortran/appendix-a/a.22.8.f90 @@ -23,3 +23,4 @@ CALL SUB1(N) END PROGRAM A22_8_GOOD +! { dg-final { cleanup-modules "a22_module8" } } diff --git a/libgomp/testsuite/libgomp.fortran/appendix-a/a.31.4.f90 b/libgomp/testsuite/libgomp.fortran/appendix-a/a.31.4.f90 index 69882c1e6b9..c03ba2adfd1 100644 --- a/libgomp/testsuite/libgomp.fortran/appendix-a/a.31.4.f90 +++ b/libgomp/testsuite/libgomp.fortran/appendix-a/a.31.4.f90 @@ -10,3 +10,5 @@ N = MAX(N,I) END DO END PROGRAM A31_4 + +! { dg-final { cleanup-modules "m" } } diff --git a/libgomp/testsuite/libgomp.fortran/appendix-a/a.31.5.f90 b/libgomp/testsuite/libgomp.fortran/appendix-a/a.31.5.f90 index 91a97cd829d..d8184952892 100644 --- a/libgomp/testsuite/libgomp.fortran/appendix-a/a.31.5.f90 +++ b/libgomp/testsuite/libgomp.fortran/appendix-a/a.31.5.f90 @@ -12,3 +12,5 @@ END DO PRINT *, R END PROGRAM A31_5 + +! { dg-final { cleanup-modules "mod" } } diff --git a/libgomp/testsuite/libgomp.fortran/appendix-a/a.40.1.f90 b/libgomp/testsuite/libgomp.fortran/appendix-a/a.40.1.f90 index 38fbca3fced..c5ecb3c3ed6 100644 --- a/libgomp/testsuite/libgomp.fortran/appendix-a/a.40.1.f90 +++ b/libgomp/testsuite/libgomp.fortran/appendix-a/a.40.1.f90 @@ -50,3 +50,5 @@ CALL INCR_B(P, WORK3()) !$OMP END PARALLEL SECTIONS END SUBROUTINE A40 + +! { dg-final { cleanup-modules "data" } } diff --git a/libgomp/testsuite/libgomp.fortran/reduction5.f90 b/libgomp/testsuite/libgomp.fortran/reduction5.f90 index bfdd43a93fa..24c2ff612e2 100644 --- a/libgomp/testsuite/libgomp.fortran/reduction5.f90 +++ b/libgomp/testsuite/libgomp.fortran/reduction5.f90 @@ -39,3 +39,5 @@ contains if (m .ne. 3 .or. n .ne. 15) call abort end subroutine test2 end + +! { dg-final { cleanup-modules "reduction5" } } diff --git a/libgomp/testsuite/libgomp.fortran/threadprivate1.f90 b/libgomp/testsuite/libgomp.fortran/threadprivate1.f90 index 99a20185509..32161426bde 100644 --- a/libgomp/testsuite/libgomp.fortran/threadprivate1.f90 +++ b/libgomp/testsuite/libgomp.fortran/threadprivate1.f90 @@ -17,3 +17,5 @@ end module threadprivate1 !$omp end parallel if (l) call abort () end + +! { dg-final { cleanup-modules "threadprivate1" } } diff --git a/libgomp/testsuite/libgomp.fortran/threadprivate2.f90 b/libgomp/testsuite/libgomp.fortran/threadprivate2.f90 index f3a4af0fc13..fb3f7ae8f8a 100644 --- a/libgomp/testsuite/libgomp.fortran/threadprivate2.f90 +++ b/libgomp/testsuite/libgomp.fortran/threadprivate2.f90 @@ -92,3 +92,5 @@ end module threadprivate2 deallocate (foo) if (allocated (foo)) call abort end + +! { dg-final { cleanup-modules "threadprivate2" } } diff --git a/libgomp/testsuite/libgomp.fortran/threadprivate3.f90 b/libgomp/testsuite/libgomp.fortran/threadprivate3.f90 index d20a6520a8a..7edfbf680ff 100644 --- a/libgomp/testsuite/libgomp.fortran/threadprivate3.f90 +++ b/libgomp/testsuite/libgomp.fortran/threadprivate3.f90 @@ -104,3 +104,5 @@ end module threadprivate3 if (l) call abort end + +! { dg-final { cleanup-modules "threadprivate3" } }