From: Francois-Xavier Coudert Date: Tue, 5 Apr 2005 08:24:55 +0000 (+0200) Subject: backspace.f, [...]: Correct dejagnu syntax. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=3eebd7765db0d94f8231a5f235b0d1afa475343d;p=gcc.git 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 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 2999619d088..5aeaad9a25f 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,10 @@ +2005-04-05 Francois-Xavier Coudert + + * 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 * gcc.c-torture/compile/20040323-1.c (_rtld_global): Set to 1. diff --git a/gcc/testsuite/gfortran.dg/backspace.f b/gcc/testsuite/gfortran.dg/backspace.f index ebf43f59f0f..c3ec0c41756 100644 --- a/gcc/testsuite/gfortran.dg/backspace.f +++ b/gcc/testsuite/gfortran.dg/backspace.f @@ -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) diff --git a/gcc/testsuite/gfortran.dg/g77/12002.f b/gcc/testsuite/gfortran.dg/g77/12002.f index 609573f4a62..0cb29c7549e 100644 --- a/gcc/testsuite/gfortran.dg/g77/12002.f +++ b/gcc/testsuite/gfortran.dg/g77/12002.f @@ -1,5 +1,5 @@ C PR middle-end/12002 -C {dg-do compile } +C { dg-do compile } COMPLEX TE1 TE1=-2. TE1=TE1+TE1 diff --git a/gcc/testsuite/gfortran.dg/g77_intrinsics_funcs.f b/gcc/testsuite/gfortran.dg/g77_intrinsics_funcs.f index fa09024411d..a2c37b03fdc 100644 --- a/gcc/testsuite/gfortran.dg/g77_intrinsics_funcs.f +++ b/gcc/testsuite/gfortran.dg/g77_intrinsics_funcs.f @@ -1,4 +1,4 @@ -! {dg-do compile} +! { dg-do compile } ! Testing g77 intrinsics as subroutines integer*8 i8 integer*4 i4 diff --git a/gcc/testsuite/gfortran.dg/g77_intrinsics_sub.f b/gcc/testsuite/gfortran.dg/g77_intrinsics_sub.f index 5a4744697bd..1d797f75a28 100644 --- a/gcc/testsuite/gfortran.dg/g77_intrinsics_sub.f +++ b/gcc/testsuite/gfortran.dg/g77_intrinsics_sub.f @@ -1,4 +1,4 @@ -! {dg-do compile} +! { dg-do compile } ! Testing g77 intrinsics as subroutines integer*8 i8, j8 integer*4 i4, j4 diff --git a/gcc/testsuite/gfortran.dg/negative_unit.f b/gcc/testsuite/gfortran.dg/negative_unit.f index ba0d3cd1a4d..fd0100a14de 100644 --- a/gcc/testsuite/gfortran.dg/negative_unit.f +++ b/gcc/testsuite/gfortran.dg/negative_unit.f @@ -1,4 +1,4 @@ -! {dg-do run} +! { dg-do run } ! ! PR libfortran/20660 and other bugs (not filed in bugzilla) relating ! to negative units diff --git a/gcc/testsuite/gfortran.dg/pr18025.f90 b/gcc/testsuite/gfortran.dg/pr18025.f90 index 69a6af6ffa9..26d5c01e023 100644 --- a/gcc/testsuite/gfortran.dg/pr18025.f90 +++ b/gcc/testsuite/gfortran.dg/pr18025.f90 @@ -1,5 +1,5 @@ ! PR libfortran/18025 -! {dg-do run} +! { dg-do run } character(len=80) :: c write(c, "('#',F0.2,'#')") 1.23 if (c /= '#1.23#') call abort