Commit 3eebd776 by Francois-Xavier Coudert Committed by François-Xavier Coudert

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
parent 13dd556c
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> 2005-04-05 Eric Botcazou <ebotcazou@libertysurf.fr>
* gcc.c-torture/compile/20040323-1.c (_rtld_global): Set to 1. * gcc.c-torture/compile/20040323-1.c (_rtld_global): Set to 1.
......
! This file is all about BACKSPACE ! This file is all about BACKSPACE
! {dg-do run} ! { dg-do run }
integer i, n, nr integer i, n, nr
real x(10), y(10) real x(10), y(10)
......
C PR middle-end/12002 C PR middle-end/12002
C {dg-do compile } C { dg-do compile }
COMPLEX TE1 COMPLEX TE1
TE1=-2. TE1=-2.
TE1=TE1+TE1 TE1=TE1+TE1
......
! {dg-do compile} ! { dg-do compile }
! Testing g77 intrinsics as subroutines ! Testing g77 intrinsics as subroutines
integer*8 i8 integer*8 i8
integer*4 i4 integer*4 i4
......
! {dg-do compile} ! { dg-do compile }
! Testing g77 intrinsics as subroutines ! Testing g77 intrinsics as subroutines
integer*8 i8, j8 integer*8 i8, j8
integer*4 i4, j4 integer*4 i4, j4
......
! {dg-do run} ! { dg-do run }
! !
! PR libfortran/20660 and other bugs (not filed in bugzilla) relating ! PR libfortran/20660 and other bugs (not filed in bugzilla) relating
! to negative units ! to negative units
......
! PR libfortran/18025 <coudert@clipper.ens.fr> ! PR libfortran/18025 <coudert@clipper.ens.fr>
! {dg-do run} ! { dg-do run }
character(len=80) :: c character(len=80) :: c
write(c, "('#',F0.2,'#')") 1.23 write(c, "('#',F0.2,'#')") 1.23
if (c /= '#1.23#') call abort if (c /= '#1.23#') call abort
......
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