This is the mail archive of the fortran@gcc.gnu.org mailing list for the GNU Fortran project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[Patch, Fortran, Committed] PR 34690 Fix test case of PR34660


Fixes another stupidity of mine. (No, I'm not doing this to increase my
commit statistics for 2008.)

Rev.

This must have been crept in when I changed the displayed location of
the error message (the former is the same as e.g. in ifort and sunf95;
the later shown in e.g. in g95 and in my opinion more helpful).

Hopefully this is the last of such stupid mistakes for this year :-(

Tobias


Index: gcc/testsuite/ChangeLog
===================================================================
--- gcc/testsuite/ChangeLog     (Revision 131360)
+++ gcc/testsuite/ChangeLog     (Arbeitskopie)
@@ -1,5 +1,10 @@
 2008-01-06  Tobias Burnus  <burnus@net-b.de>

+       PR fortran/34690
+       * gfortran.dg/elemental_args_check_2.f90: Fix test case.
+
+2008-01-06  Tobias Burnus  <burnus@net-b.de>
+
        PR fortran/34689
        * gfortran.dg/intent_out_4.f90: Fix test case.

Index: gcc/testsuite/gfortran.dg/elemental_args_check_2.f90
===================================================================
--- gcc/testsuite/gfortran.dg/elemental_args_check_2.f90       
(Revision 131360)
+++ gcc/testsuite/gfortran.dg/elemental_args_check_2.f90       
(Arbeitskopie)
@@ -8,10 +8,10 @@
 MODULE M1
 IMPLICIT NONE
 CONTAINS
- PURE ELEMENTAL SUBROUTINE S1(I,F)
+ PURE ELEMENTAL SUBROUTINE S1(I,F) ! { dg-error "Dummy procedure 'f'
not allowed in elemental procedure" }
    INTEGER, INTENT(IN) :: I
    INTERFACE
-     PURE INTEGER FUNCTION F(I) ! { dg-error "Dummy procedure 'f' not
allowed in elemental procedure" }
+     PURE INTEGER FUNCTION F(I)
       INTEGER, INTENT(IN) :: I
      END FUNCTION F
    END INTERFACE


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]