From d72702e2cbf5f92f41b442c0fec1e42e65730dc4 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Wed, 24 Oct 2007 03:39:03 +0000 Subject: [PATCH] re PR fortran/33849 (Fix misleading error message "GENERIC non-INTRINSIC procedure not allowed as an actual argument") 2007-10-23 Jerry DeLisle PR forrtran/33849 gfortran.dg/generic_actual_arg.f90: Fix dg-error message. From-SVN: r129595 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/generic_actual_arg.f90 | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index c68d6c23f7d..f650910e64c 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-10-23 Jerry DeLisle + + PR forrtran/33849 + gfortran.dg/generic_actual_arg.f90: Fix dg-error message. + 2007-10-23 Martin Michlmayr Uros Bizjak diff --git a/gcc/testsuite/gfortran.dg/generic_actual_arg.f90 b/gcc/testsuite/gfortran.dg/generic_actual_arg.f90 index 9087a5d456b..978f64d0951 100644 --- a/gcc/testsuite/gfortran.dg/generic_actual_arg.f90 +++ b/gcc/testsuite/gfortran.dg/generic_actual_arg.f90 @@ -18,7 +18,7 @@ END SUBROUTINE END MODULE TEST USE TEST -CALL F(CALCULATION) ! { dg-error "GENERIC non-INTRINSIC procedure" } +CALL F(CALCULATION) ! { dg-error "GENERIC procedure" } END SUBROUTINE F() -- 2.30.2