[Fortran, Patch] Implement IMPLICIT NONE
Dominique Dhumieres
dominiq@lps.ens.fr
Tue Oct 7 22:33:00 GMT 2014
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
More information about the Gcc-patches
mailing list