Skip to content

R
riscv-gcc-1
Commit 7d6df107 by Francois-Xavier Coudert Committed by François-Xavier Coudert
Options

defined_operators_1.f90: Add cleanup-modules dg directive. 

	* 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
parent 0b45aedd
Showing with 33 additions and 1 deletions
gcc/testsuite/ChangeLog
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> 2006-10-13 Mark Mitchell <mark@codesourcery.com>
PR c++/28506 PR c++/28506
gcc/testsuite/gfortran.dg/defined_operators_1.f90
...@@ -54,3 +54,4 @@ contains ...@@ -54,3 +54,4 @@ contains
foo_3 = a + 3 * b - c foo_3 = a + 3 * b - c
end function foo_3 end function foo_3
end module mymod end module mymod
! { dg-final { cleanup-modules "mymod" } }
gcc/testsuite/gfortran.dg/derived_constructor_comps_1.f90
...@@ -54,3 +54,4 @@ contains ...@@ -54,3 +54,4 @@ contains
end function foo end function foo
end program prog end program prog
! { dg-final { cleanup-modules "foo_mod" } }
gcc/testsuite/gfortran.dg/dummy_procedure_2.f90
...@@ -31,3 +31,4 @@ contains ...@@ -31,3 +31,4 @@ contains
print *,integrate (g,0d0,3d0) print *,integrate (g,0d0,3d0)
end subroutine foo2 end subroutine foo2
end end
! { dg-final { cleanup-modules "integrator" } }
gcc/testsuite/gfortran.dg/forall_4.f90
...@@ -64,3 +64,4 @@ contains ...@@ -64,3 +64,4 @@ contains
w = 5 - i w = 5 - i
end function w end function w
end end
! { dg-final { cleanup-modules "foo" } }
gcc/testsuite/gfortran.dg/forall_5.f90
...@@ -38,3 +38,4 @@ contains ...@@ -38,3 +38,4 @@ contains
w = 5 - i w = 5 - i
end function w end function w
end end
! { dg-final { cleanup-modules "foo" } }
gcc/testsuite/gfortran.dg/gomp/omp_threadprivate1.f90
...@@ -15,3 +15,4 @@ ...@@ -15,3 +15,4 @@
!$omp end parallel ! { dg-error "" } !$omp end parallel ! { dg-error "" }
end subroutine bad3 end subroutine bad3
end subroutine bad2 end subroutine bad2
! { dg-final { cleanup-modules "omp_threadprivate1" } }
gcc/testsuite/gfortran.dg/gomp/reduction3.f90
...@@ -67,3 +67,4 @@ subroutine f6 ...@@ -67,3 +67,4 @@ subroutine f6
i = iand (i, 18) i = iand (i, 18)
!$omp end parallel !$omp end parallel
end subroutine f6 end subroutine f6
! { dg-final { cleanup-modules "mreduction3" } }
gcc/testsuite/gfortran.dg/interface_derived_type_1.f90
...@@ -52,3 +52,5 @@ subroutine sim_3(func3,params) ...@@ -52,3 +52,5 @@ subroutine sim_3(func3,params)
end interface end interface
type(fcnparms) :: params ! -ditto- type(fcnparms) :: params ! -ditto-
end subroutine sim_3 end subroutine sim_3
! { dg-final { cleanup-modules "test type_decl" } }
gcc/testsuite/gfortran.dg/module_private_array_refs_1.f90
...@@ -49,3 +49,4 @@ end ...@@ -49,3 +49,4 @@ end
call sub () call sub ()
end end
! { dg-final { cleanup-modules "foo bar" } }
gcc/testsuite/gfortran.dg/module_proc_external_dummy.f90
...@@ -27,3 +27,4 @@ end module test_module ...@@ -27,3 +27,4 @@ end module test_module
call sub_module (sub) call sub_module (sub)
call sub_module (str) call sub_module (str)
end end
! { dg-final { cleanup-modules "test_module" } }
gcc/testsuite/gfortran.dg/open_access_append_2.f90
! { dg-do run } ! { dg-do run }
! Testcase for the GNU extension OPEN(...,ACCESS="APPEND") ! 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 call abort
900 end 900 end
! { dg-output ".*Extension.*" }
gcc/testsuite/gfortran.dg/spec_expr_4.f90
...@@ -31,3 +31,4 @@ end module global_numbering ...@@ -31,3 +31,4 @@ end module global_numbering
e%numbering => ent e%numbering => ent
print *, element_local_coords (e) print *, element_local_coords (e)
end end
! { dg-final { cleanup-modules "elements global_numbering" } }
gcc/testsuite/gfortran.dg/unused_artificial_dummies_1.f90
...@@ -47,3 +47,4 @@ contains ...@@ -47,3 +47,4 @@ contains
end function end function
end module foo end module foo
! { dg-final { cleanup-modules "foo" } }
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment