This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[PATCH] libgomp cleanup-modules testsuite additions
- From: Jakub Jelinek <jakub at redhat dot com>
- To: gcc-patches at gcc dot gnu dot org
- Date: Wed, 21 Mar 2007 14:45:07 -0500
- Subject: [PATCH] libgomp cleanup-modules testsuite additions
- Reply-to: Jakub Jelinek <jakub at redhat dot com>
Hi!
Tested on x86_64-linux, committed.
2007-03-21 Jakub Jelinek <jakub@redhat.com>
* 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.
--- libgomp/testsuite/libgomp.fortran/appendix-a/a.22.8.f90.jj 2006-10-05 00:24:39.000000000 +0200
+++ libgomp/testsuite/libgomp.fortran/appendix-a/a.22.8.f90 2007-03-21 20:05:53.000000000 +0100
@@ -23,3 +23,4 @@
CALL SUB1(N)
END PROGRAM A22_8_GOOD
+! { dg-final { cleanup-modules "a22_module8" } }
--- libgomp/testsuite/libgomp.fortran/appendix-a/a.40.1.f90.jj 2006-10-05 00:24:39.000000000 +0200
+++ libgomp/testsuite/libgomp.fortran/appendix-a/a.40.1.f90 2007-03-21 20:06:57.000000000 +0100
@@ -50,3 +50,5 @@
CALL INCR_B(P, WORK3())
!$OMP END PARALLEL SECTIONS
END SUBROUTINE A40
+
+! { dg-final { cleanup-modules "data" } }
--- libgomp/testsuite/libgomp.fortran/appendix-a/a.31.5.f90.jj 2006-10-05 00:24:39.000000000 +0200
+++ libgomp/testsuite/libgomp.fortran/appendix-a/a.31.5.f90 2007-03-21 20:06:34.000000000 +0100
@@ -12,3 +12,5 @@
END DO
PRINT *, R
END PROGRAM A31_5
+
+! { dg-final { cleanup-modules "mod" } }
--- libgomp/testsuite/libgomp.fortran/appendix-a/a.31.4.f90.jj 2006-10-05 00:24:39.000000000 +0200
+++ libgomp/testsuite/libgomp.fortran/appendix-a/a.31.4.f90 2007-03-21 20:06:18.000000000 +0100
@@ -10,3 +10,5 @@
N = MAX(N,I)
END DO
END PROGRAM A31_4
+
+! { dg-final { cleanup-modules "m" } }
--- libgomp/testsuite/libgomp.fortran/threadprivate2.f90.jj 2006-10-05 00:24:40.000000000 +0200
+++ libgomp/testsuite/libgomp.fortran/threadprivate2.f90 2007-03-21 19:49:56.000000000 +0100
@@ -92,3 +92,5 @@ end module threadprivate2
deallocate (foo)
if (allocated (foo)) call abort
end
+
+! { dg-final { cleanup-modules "threadprivate2" } }
--- libgomp/testsuite/libgomp.fortran/reduction5.f90.jj 2006-10-05 00:24:40.000000000 +0200
+++ libgomp/testsuite/libgomp.fortran/reduction5.f90 2007-03-21 19:49:19.000000000 +0100
@@ -39,3 +39,5 @@ contains
if (m .ne. 3 .or. n .ne. 15) call abort
end subroutine test2
end
+
+! { dg-final { cleanup-modules "reduction5" } }
--- libgomp/testsuite/libgomp.fortran/threadprivate3.f90.jj 2006-10-05 00:24:40.000000000 +0200
+++ libgomp/testsuite/libgomp.fortran/threadprivate3.f90 2007-03-21 19:50:12.000000000 +0100
@@ -104,3 +104,5 @@ end module threadprivate3
if (l) call abort
end
+
+! { dg-final { cleanup-modules "threadprivate3" } }
--- libgomp/testsuite/libgomp.fortran/threadprivate1.f90.jj 2006-10-05 00:24:40.000000000 +0200
+++ libgomp/testsuite/libgomp.fortran/threadprivate1.f90 2007-03-21 19:49:45.000000000 +0100
@@ -17,3 +17,5 @@ end module threadprivate1
!$omp end parallel
if (l) call abort ()
end
+
+! { dg-final { cleanup-modules "threadprivate1" } }
Jakub