From: Andrew Pinski Date: Mon, 9 Jan 2006 20:18:37 +0000 (-0800) Subject: Fix the tests I just committed to be the correct tests. X-Git-Tag: releases/gcc-4.2.0~4962 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=76150104aa8575fb795aed3648046e22618bc2a3;p=thirdparty%2Fgcc.git Fix the tests I just committed to be the correct tests. From-SVN: r109506 --- diff --git a/gcc/testsuite/gfortran.dg/nesting_2.f90 b/gcc/testsuite/gfortran.dg/nesting_2.f90 index e3ec9c9958d9..a260c04c732a 100644 --- a/gcc/testsuite/gfortran.dg/nesting_2.f90 +++ b/gcc/testsuite/gfortran.dg/nesting_2.f90 @@ -1,6 +1,7 @@ ! check to make the nested function dawsonseries_v gets the correct ! fake return decl and that the outer (dawson_v) has an assignment of ! just the fake return decl for real and not the inner's return decl. +! { dg-do compile } FUNCTION dawson_v() IMPLICIT NONE REAL :: dawson_v diff --git a/gcc/testsuite/gfortran.dg/nesting_3.f90 b/gcc/testsuite/gfortran.dg/nesting_3.f90 index 0a052da893e8..234f50e2083f 100644 --- a/gcc/testsuite/gfortran.dg/nesting_3.f90 +++ b/gcc/testsuite/gfortran.dg/nesting_3.f90 @@ -1,6 +1,7 @@ ! check to make the nested function dawsonseries_v gets the correct ! fake return decl and that the outer (dawson_v) has an assignment of ! just the fake return decl for real and not the inner's return decl. +! { dg-do compile } FUNCTION dawson_v() IMPLICIT NONE REAL,DIMENSION(1) :: dawson_v