OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

backspace.f, [...]: Correct dejagnu syntax. 

* gfortran.dg/backspace.f, gfortran.dg/g77_intrinsics_funcs.f,
	gfortran.dg/g77_intrinsics_sub.f, gfortran.dg/negative_unit.f,
	gfortran.dg/pr18025.f90, gfortran.dg/g77/12002.f: Correct dejagnu
	syntax.

From-SVN: r97611
This commit is contained in:
Francois-Xavier Coudert 2005-04-05 10:24:55 +02:00 committed by François-Xavier Coudert
parent 13dd556c07
commit 3eebd7765d
7 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,10 @@
2005-04-05 Francois-Xavier Coudert <coudert@clipper.ens.fr>
* gfortran.dg/backspace.f, gfortran.dg/g77_intrinsics_funcs.f,
gfortran.dg/g77_intrinsics_sub.f, gfortran.dg/negative_unit.f,
gfortran.dg/pr18025.f90, gfortran.dg/g77/12002.f: Correct dejagnu
syntax.
2005-04-05 Eric Botcazou <ebotcazou@libertysurf.fr>
* gcc.c-torture/compile/20040323-1.c (_rtld_global): Set to 1.

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

@ -1,5 +1,5 @@
! This file is all about BACKSPACE
! {dg-do run}
! { dg-do run }
integer i, n, nr
real x(10), y(10)

2
gcc/testsuite/gfortran.dg/g77/12002.f
View File

@ -1,5 +1,5 @@
C PR middle-end/12002
C {dg-do compile }
C { dg-do compile }
COMPLEX TE1
TE1=-2.
TE1=TE1+TE1

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

@ -1,4 +1,4 @@
! {dg-do compile}
! { dg-do compile }
! Testing g77 intrinsics as subroutines
integer*8 i8
integer*4 i4

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

@ -1,4 +1,4 @@
! {dg-do compile}
! { dg-do compile }
! Testing g77 intrinsics as subroutines
integer*8 i8, j8
integer*4 i4, j4

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

@ -1,4 +1,4 @@
! {dg-do run}
! { dg-do run }
!
! PR libfortran/20660 and other bugs (not filed in bugzilla) relating
! to negative units

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

@ -1,5 +1,5 @@
! PR libfortran/18025 <coudert@clipper.ens.fr>
! {dg-do run}
! { dg-do run }
character(len=80) :: c
write(c, "('#',F0.2,'#')") 1.23
if (c /= '#1.23#') call abort