mirrors/gcc
0
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-12-20 09:35:05 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

defined_operators_1.f90: Add cleanup-modules dg directive.

Browse Source 
* gfortran.dg/defined_operators_1.f90: Add cleanup-modules dg
	directive.
	* gfortran.dg/module_private_array_refs_1.f90: Likewise.
	* gfortran.dg/module_proc_external_dummy.f90: Likewise.
	* gfortran.dg/gomp/omp_threadprivate1.f90: Likewise.
	* gfortran.dg/gomp/reduction3.f90: Likewise.
	* gfortran.dg/derived_constructor_comps_1.f90: Likewise.
	* gfortran.dg/dummy_procedure_2.f90: Likewise.
	* gfortran.dg/interface_derived_type_1.f90: Likewise.
	* gfortran.dg/forall_4.f90: Likewise.
	* gfortran.dg/spec_expr_4.f90: Likewise.
	* gfortran.dg/unused_artificial_dummies_1.f90: Likewise.
	* gfortran.dg/forall_5.f90: Likewise.
	* gfortran.dg/open_access_append_2.f90: Add check for
	compile-time warning.

From-SVN: r117688
This commit is contained in:
Francois-Xavier Coudert 2006-10-13 10:56:25 +02:00 committed by François-Xavier Coudert
parent 0b45aeddd8
commit 7d6df107ae
14 changed files with 33 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,21 @@
2006-10-13 Francois-Xavier Coudert <coudert@clipper.ens.fr>
* gfortran.dg/defined_operators_1.f90: Add cleanup-modules dg
directive.
* gfortran.dg/module_private_array_refs_1.f90: Likewise.
* gfortran.dg/module_proc_external_dummy.f90: Likewise.
* gfortran.dg/gomp/omp_threadprivate1.f90: Likewise.
* gfortran.dg/gomp/reduction3.f90: Likewise.
* gfortran.dg/derived_constructor_comps_1.f90: Likewise.
* gfortran.dg/dummy_procedure_2.f90: Likewise.
* gfortran.dg/interface_derived_type_1.f90: Likewise.
* gfortran.dg/forall_4.f90: Likewise.
* gfortran.dg/spec_expr_4.f90: Likewise.
* gfortran.dg/unused_artificial_dummies_1.f90: Likewise.
* gfortran.dg/forall_5.f90: Likewise.
* gfortran.dg/open_access_append_2.f90: Add check for
compile-time warning.
2006-10-13 Mark Mitchell <mark@codesourcery.com>
PR c++/28506

1
gcc/testsuite/gfortran.dg/defined_operators_1.f90
View File

@ -54,3 +54,4 @@ contains
foo_3 = a + 3 * b - c
end function foo_3
end module mymod
! { dg-final { cleanup-modules "mymod" } }

1
gcc/testsuite/gfortran.dg/derived_constructor_comps_1.f90
View File

@ -54,3 +54,4 @@ contains
end function foo
end program prog
! { dg-final { cleanup-modules "foo_mod" } }

1
gcc/testsuite/gfortran.dg/dummy_procedure_2.f90
View File

@ -31,3 +31,4 @@ contains
print *,integrate (g,0d0,3d0)
end subroutine foo2
end
! { dg-final { cleanup-modules "integrator" } }

1
gcc/testsuite/gfortran.dg/forall_4.f90
View File

@ -64,3 +64,4 @@ contains
w = 5 - i
end function w
end
! { dg-final { cleanup-modules "foo" } }

1
gcc/testsuite/gfortran.dg/forall_5.f90
View File

@ -38,3 +38,4 @@ contains
w = 5 - i
end function w
end
! { dg-final { cleanup-modules "foo" } }

1
gcc/testsuite/gfortran.dg/gomp/omp_threadprivate1.f90
View File

@ -15,3 +15,4 @@
!$omp end parallel ! { dg-error "" }
end subroutine bad3
end subroutine bad2
! { dg-final { cleanup-modules "omp_threadprivate1" } }

1
gcc/testsuite/gfortran.dg/gomp/reduction3.f90
View File

@ -67,3 +67,4 @@ subroutine f6
i = iand (i, 18)
!$omp end parallel
end subroutine f6
! { dg-final { cleanup-modules "mreduction3" } }

2
gcc/testsuite/gfortran.dg/interface_derived_type_1.f90
View File

@ -52,3 +52,5 @@ subroutine sim_3(func3,params)
end interface
type(fcnparms) :: params ! -ditto-
end subroutine sim_3
! { dg-final { cleanup-modules "test type_decl" } }

1
gcc/testsuite/gfortran.dg/module_private_array_refs_1.f90
View File

@ -49,3 +49,4 @@ end
call sub ()
end
! { dg-final { cleanup-modules "foo bar" } }

1
gcc/testsuite/gfortran.dg/module_proc_external_dummy.f90
View File

@ -27,3 +27,4 @@ end module test_module
call sub_module (sub)
call sub_module (str)
end
! { dg-final { cleanup-modules "test_module" } }

3
gcc/testsuite/gfortran.dg/open_access_append_2.f90
View File

@ -1,5 +1,6 @@
! { dg-do run }
! Testcase for the GNU extension OPEN(...,ACCESS="APPEND")
open (10,err=900,access="append",position="asis") ! { dg-output ".*Extension.*" }
open (10,err=900,access="append",position="asis") ! { dg-warning "Extension: ACCESS specifier in OPEN statement" }
call abort
900 end
! { dg-output ".*Extension.*" }

1
gcc/testsuite/gfortran.dg/spec_expr_4.f90
View File

@ -31,3 +31,4 @@ end module global_numbering
e%numbering => ent
print *, element_local_coords (e)
end
! { dg-final { cleanup-modules "elements global_numbering" } }

1
gcc/testsuite/gfortran.dg/unused_artificial_dummies_1.f90
View File

@ -47,3 +47,4 @@ contains
end function
end module foo
! { dg-final { cleanup-modules "foo" } }