4 ! Support Fortran 2015's IMPLICIT NONE with spec list
10 i
= 1 ! { dg-error "Symbol 'i' at .1. has no IMPLICIT type" }
14 implicit none ( external )
15 call foo() ! { dg-error "Procedure 'foo' called at .1. is not explicitly declared" }
20 implicit none ( external, type, external, type )
21 call foo() ! { dg-error "Procedure 'foo' called at .1. is not explicitly declared" }
22 i
= 3 ! { dg-error "Symbol 'i' at .1. has no IMPLICIT type" }
26 implicit none ( external ,type)
29 i
= 4 ! { dg-error "Symbol 'i' at .1. has no IMPLICIT type" }
34 implicit none ( external )
41 implicit none ( external )
49 implicit none ( external )
50 implicit none ! { dg-error "Duplicate IMPLICIT NONE statement" }
55 implicit none ( type ) ! { dg-error "Duplicate IMPLICIT NONE statement" }
59 implicit none ( external, type )
60 implicit integer(a
-z
) ! { dg-error "IMPLICIT statement at .1. following an IMPLICIT NONE .type. statement" }
67 implicit none ( external, type ) ! { dg-error "IMPLICIT NONE .type. statement at .1. following an IMPLICIT statement" }