* 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
+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