Re: [Fortran, Patch] Implement IMPLICIT NONE

[Dominique Dhumieres]

Patch:

--- ../_clean/gcc/testsuite/gfortran.dg/implicit_4.f90  2014-10-07 
00:21:56.000000000 +0200
+++ gcc/testsuite/gfortran.dg/implicit_4.f90    2014-10-07 19:09:45.000000000 
+0200
@@ -6,7 +6,7 @@ END
 
 SUBROUTINE a
 IMPLICIT REAL(b-j)
-implicit none      ! { dg-error "Type IMPLICIT NONE statement at .1. following 
an IMPLICIT statement" }
+implicit none      ! { dg-error "IMPLICIT NONE .type. statement at .1. 
following an IMPLICIT statement" }
 END SUBROUTINE a
 
 subroutine b

Note that the loci are badly placed:

/opt/gcc/work/gcc/testsuite/gfortran.dg/implicit_4.f90:4.40:

IMPLICIT NONE ! { dg-error "Duplicate" }
                                        1
Error: Duplicate IMPLICIT NONE statement at (1)
/opt/gcc/work/gcc/testsuite/gfortran.dg/implicit_4.f90:9.105:

r "IMPLICIT NONE .type. statement at .1. following an IMPLICIT statement" }
                                                                           1
Error: IMPLICIT NONE (type) statement at (1) following an IMPLICIT statement
/opt/gcc/work/gcc/testsuite/gfortran.dg/implicit_4.f90:14.8:

implicit real(g-k) ! { dg-error "IMPLICIT statement at .1. following an IMPLICI
        1
Error: IMPLICIT statement at (1) following an IMPLICIT NONE (type) statement
/opt/gcc/work/gcc/testsuite/gfortran.dg/implicit_4.f90:19.47:

implicit integer (b-c) ! { dg-error "already" }
                                               1
Error: Letter B already has an IMPLICIT type at (1)
/opt/gcc/work/gcc/testsuite/gfortran.dg/implicit_4.f90:20.57:

implicit real(d-f), complex(f-g) ! { dg-error "already" }
                                                         1
Error: Letter F already has an IMPLICIT type at (1)

i.e., at the end of the comment and not where the error occurs.

Dominique