mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-11 06:20:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

size_dim.f90: Fix dg directive.

Browse Source 
* size_dim.f90: Fix dg directive.
	* pr16433.f: Likewise.
	* use_6.f90: Likewise.
	* use_7.f90: Likewise.
	* entry_9.f90: Likewise.
	* pointer_intent_2.f90: Likewise.
	* protected_1.f90: Likewise.
	* fmt_missing_period_2.f: Likewise.
	* pointer_intent_3.f90: Likewise.
	* protected_2.f90: Likewise.
	* protected_3.f90: Likewise.
	* pr15754.f90: Likewise.
	* protected_4.f90: Likewise.
	* protected_5.f90: Likewise.
	* initialization_2.f90: Likewise.
	* protected_6.f90: Likewise.
	* continuation_7.f90: Likewise.
	* derived_function_interface_1.f90: Likewise.
	* der_pointer_4.f90: Likewise.
	* fmt_zero_precision.f90: Likewise.
	* blockdata_3.f90: Likewise.
	* fmt_missing_period_1.f: Likewise.
	* real_const_3.f90: Likewise.
	* use_4.f90: Likewise.
	* fmt_missing_period_3.f: Likewise.
	* use_5.f90: Likewise.

From-SVN: r123341
This commit is contained in:
Francois-Xavier Coudert 2007-03-29 20:44:47 +00:00 committed by François-Xavier Coudert
parent d9dbda201b
commit 7761c0db85
27 changed files with 103 additions and 76 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,32 @@
2007-03-29 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
* size_dim.f90: Fix dg directive.
* pr16433.f: Likewise.
* use_6.f90: Likewise.
* use_7.f90: Likewise.
* entry_9.f90: Likewise.
* pointer_intent_2.f90: Likewise.
* protected_1.f90: Likewise.
* fmt_missing_period_2.f: Likewise.
* pointer_intent_3.f90: Likewise.
* protected_2.f90: Likewise.
* protected_3.f90: Likewise.
* pr15754.f90: Likewise.
* protected_4.f90: Likewise.
* protected_5.f90: Likewise.
* initialization_2.f90: Likewise.
* protected_6.f90: Likewise.
* continuation_7.f90: Likewise.
* derived_function_interface_1.f90: Likewise.
* der_pointer_4.f90: Likewise.
* fmt_zero_precision.f90: Likewise.
* blockdata_3.f90: Likewise.
* fmt_missing_period_1.f: Likewise.
* real_const_3.f90: Likewise.
* use_4.f90: Likewise.
* fmt_missing_period_3.f: Likewise.
* use_5.f90: Likewise.
2007-03-28 Mike Stump <mrs@apple.com>
* gcc.dg/darwin-comm.c: Add.

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

@ -1,4 +1,4 @@
! { dg-compile }
! { dg-do compile }
! { dg-options "-W -Wall" }
! Tests the fix for PR29539, in which the derived type in a blockdata
! cause an ICE. With the fix for PR29565, this now compiles and runs

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

@ -1,4 +1,4 @@
! { dg-do "compile" }
! { dg-do compile }
! { dg-options "-Wall -std=f95" }
! There should only two warnings be printed.
! PR fortran/30968

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

@ -1,4 +1,4 @@
! {dg-do compile }
! { dg-do compile }
! PR 24426
! Pointer-components of derived type with initialized components
module crash

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

@ -1,4 +1,4 @@
! { dg-compile }
! { dg-do compile }
! Tests the fix for PR29634, in which an ICE would occur in the
! interface declaration of a function with an 'old-style' type
! declaration. When fixed, it was found that the error message

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

@ -1,4 +1,4 @@
! { dg-do "run" }
! { dg-do run }
! Check whether RESULT of ENTRY defaults to entry-name.
! PR fortran/30873
!

2
gcc/testsuite/gfortran.dg/fmt_missing_period_1.f
View File

@ -1,4 +1,4 @@
! { dg-compile }
! { dg-do compile }
! PR27634 Missing period in format specifier. Test case derived from case given
! in PR. Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>
real aval

2
gcc/testsuite/gfortran.dg/fmt_missing_period_2.f
View File

@ -1,4 +1,4 @@
! { dg-run }
! { dg-do run }
! { dg-options "-w -std=legacy" }
! PR27634 Missing period in format specifier. Test case derived from case given
! in PR. Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>

2
gcc/testsuite/gfortran.dg/fmt_missing_period_3.f
View File

@ -1,4 +1,4 @@
! { dg-run }
! { dg-do run }
! { dg-options "-std=legacy" }
! PR27634 Missing period in format specifier. Test case derived from case given
! in PR. Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>

74
gcc/testsuite/gfortran.dg/fmt_zero_precision.f90
View File

@ -46,40 +46,40 @@
250 format(1pe7.0,"<")
300 format(1pe6.0,"<")
end
! {dg-output "-1.<"
! {dg-output " 1.<"
! {dg-output "-9.<"
! {dg-output "-1.<"
! {dg-output "-1.<"
! {dg-output "-1.<"
! {dg-output "-1.<"
! {dg-output " 0.<"
! {dg-output " 38.<"
! {dg-output " 10345.<"
! {dg-output " 334.<"
! {dg-output " 333.<"
! {dg-output "1.E-01"
! {dg-output "-1.E+00<"
! {dg-output " 1.E+00<"
! {dg-output "-9.E+00<"
! {dg-output "-1.E+00<"
! {dg-output "-1.E+00<"
! {dg-output "-1.E+00<"
! {dg-output "-6.E-01<"
! {dg-output "-5.E-01<"
! {dg-output " 4.E+01<"
! {dg-output " 1.E+04<"
! {dg-output " 3.E+02<"
! {dg-output " 3.E+02<"
! {dg-output "-1.E+00<"
! {dg-output " 1.E+00<"
! {dg-output "-9.E+00<"
! {dg-output "-1.E+00<"
! {dg-output "-1.E+00<"
! {dg-output "-1.E+00<"
! {dg-output "-6.E-01<"
! {dg-output "-5.E-01<"
! {dg-output "4.E+01<"
! {dg-output "1.E+04<"
! {dg-output "3.E+02<"
! {dg-output "3.E+02<"
! { dg-output "-1.<"
! { dg-output " 1.<"
! { dg-output "-9.<"
! { dg-output "-1.<"
! { dg-output "-1.<"
! { dg-output "-1.<"
! { dg-output "-1.<"
! { dg-output " 0.<"
! { dg-output " 38.<"
! { dg-output " 10345.<"
! { dg-output " 334.<"
! { dg-output " 333.<"
! { dg-output "1.E-01"
! { dg-output "-1.E+00<"
! { dg-output " 1.E+00<"
! { dg-output "-9.E+00<"
! { dg-output "-1.E+00<"
! { dg-output "-1.E+00<"
! { dg-output "-1.E+00<"
! { dg-output "-6.E-01<"
! { dg-output "-5.E-01<"
! { dg-output " 4.E+01<"
! { dg-output " 1.E+04<"
! { dg-output " 3.E+02<"
! { dg-output " 3.E+02<"
! { dg-output "-1.E+00<"
! { dg-output " 1.E+00<"
! { dg-output "-9.E+00<"
! { dg-output "-1.E+00<"
! { dg-output "-1.E+00<"
! { dg-output "-1.E+00<"
! { dg-output "-6.E-01<"
! { dg-output "-5.E-01<"
! { dg-output "4.E+01<"
! { dg-output "1.E+04<"
! { dg-output "3.E+02<"
! { dg-output "3.E+02<"

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

@ -1,4 +1,4 @@
! {dg-do run }
! { dg-do run }
! Vector subscripts, ranks and shapes of initialization expressions (PRs 29393,
! 29630 and 29679)
program test

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

@ -1,4 +1,4 @@
! { dg-compile }
! { dg-do compile }
! { dg-options "-std=f95" }
! { dg-shouldfail "Fortran 2003 feature with -std=f95" }
!

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

@ -1,4 +1,4 @@
! { dg-compile }
! { dg-do compile }
! { dg-options "-std=f2003 -fall-intrinsics" }
! { dg-shouldfail "Invalid code" }
!

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

@ -1,5 +1,5 @@
! we didn't give a warning if the RHS of an assignment was NULL
! { dg-do-compile }
! { dg-do compile }
INTEGER, POINTER :: P
I = NULL() ! { dg-error "NULL appears" "Assignment non-pointer = NULL" }
P = NULL() ! { dg-error "NULL appears" "Assignment pointer = NULL" }

2
gcc/testsuite/gfortran.dg/pr16433.f
View File

@ -1,4 +1,4 @@
! { dg-do-compile }
! { dg-do compile }
real x
double precision dx
x = x'2ffde' ! { dg-warning "exadecimal constant" "Hex constant can't begin with x" }

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

@ -1,4 +1,4 @@
! { dg-run }
! { dg-do run }
! { dg-options "-std=f2003 -fall-intrinsics" }
! PR fortran/23994
!

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

@ -1,4 +1,4 @@
! { dg-run }
! { dg-do run }
! { dg-options "-std=f2003 -fall-intrinsics" }
! PR fortran/23994
!

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

@ -1,5 +1,3 @@
! { dg-run }
! { dg-shouldfail "Fortran 2003 code with -std=f95" }
! { dg-options "-std=f95 -fall-intrinsics" }
! PR fortran/23994
!

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

@ -1,4 +1,4 @@
! { dg-compile }
! { dg-do compile }
! { dg-shouldfail "Invalid Fortran 2003 code" }
! { dg-options "-std=f2003 -fall-intrinsics" }
! PR fortran/23994

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

@ -1,4 +1,4 @@
! { dg-compile }
! { dg-do compile }
! { dg-shouldfail "Invalid Fortran 2003 code" }
! { dg-options "-std=f2003 -fall-intrinsics" }
! PR fortran/23994

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

@ -1,4 +1,4 @@
! { dg-compile }
! { dg-do compile }
! { dg-shouldfail "Invalid Fortran 2003 code" }
! { dg-options "-std=f2003 -fall-intrinsics" }
! PR fortran/23994

28
gcc/testsuite/gfortran.dg/real_const_3.f90
View File

@ -1,4 +1,4 @@
!{ dg-run }
!{ dg-do run }
!{ dg-options "-fno-range-check" }
! PR19310 and PR19904, allow disabling range check during compile.
! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>
@ -26,16 +26,16 @@ program main
print *, z4
end program main
!{dg-output " +Infinity"
!{dg-output " 0.000000"
!{dg-output " -Infinity"
!{dg-output " NaN"
!{dg-output " NaN"
!{dg-output " -Infinity"
!{dg-output " -Infinity"
!{dg-output " +Infinity"
!{dg-output " NaN"
!{dg-output " ( NaN, NaN)"
!{dg-output " ( NaN, NaN)"
!{dg-output " ( +Infinity, -Infinity)"
!{dg-output " ( 0.000000 , 0.000000 )"
!{ dg-output " +Infinity"
!{ dg-output " 0.000000"
!{ dg-output " -Infinity"
!{ dg-output " NaN"
!{ dg-output " NaN"
!{ dg-output " -Infinity"
!{ dg-output " -Infinity"
!{ dg-output " +Infinity"
!{ dg-output " NaN"
!{ dg-output " ( NaN, NaN)"
!{ dg-output " ( NaN, NaN)"
!{ dg-output " ( +Infinity, -Infinity)"
!{ dg-output " ( 0.000000 , 0.000000 )"

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

@ -1,4 +1,4 @@
! { dg-do "run" }
! { dg-do run }
! Check size with initialization expression value for dim=
! PR fortran/30882
!

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

@ -1,4 +1,4 @@
! { dg-do "compile" }
! { dg-do compile }
! PR fortran/30973
! Using symbols with the name of the module

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

@ -1,4 +1,4 @@
! { dg-do "run" }
! { dg-do run }
! Renaming of operators
module z
interface operator(.addfive.)

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

@ -1,4 +1,4 @@
! { dg-do "compile" }
! { dg-do compile }
! { dg-options "-std=f95" }
! Renaming of operators
module z

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

@ -1,4 +1,4 @@
! { dg-do "compile" }
! { dg-do compile }
! Renaming of operators
module z
type myT