From 76150104aa8575fb795aed3648046e22618bc2a3 Mon Sep 17 00:00:00 2001 From: Andrew Pinski Date: Mon, 9 Jan 2006 12:18:37 -0800 Subject: [PATCH] Fix the tests I just committed to be the correct tests. From-SVN: r109506 --- gcc/testsuite/gfortran.dg/nesting_2.f90 | 1 + gcc/testsuite/gfortran.dg/nesting_3.f90 | 1 + 2 files changed, 2 insertions(+) diff --git a/gcc/testsuite/gfortran.dg/nesting_2.f90 b/gcc/testsuite/gfortran.dg/nesting_2.f90 index e3ec9c9958d..a260c04c732 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 0a052da893e..234f50e2083 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