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>
* gcc.c-torture/compile/20040323-1.c (_rtld_global): Set to 1.
......
! This file is all about BACKSPACE
! {dg-do run}
! { dg-do run }
integer i, n, nr
real x(10), y(10)
......
C PR middle-end/12002
C {dg-do compile }
C { dg-do compile }
COMPLEX TE1
TE1=-2.
TE1=TE1+TE1
......
! {dg-do compile}
! { dg-do compile }
! Testing g77 intrinsics as subroutines
integer*8 i8
integer*4 i4
......
! {dg-do compile}
! { dg-do compile }
! Testing g77 intrinsics as subroutines
integer*8 i8, j8
integer*4 i4, j4
......
! {dg-do run}
! { dg-do run }
!
! PR libfortran/20660 and other bugs (not filed in bugzilla) relating
! to negative units
......
! 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
......
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