1! { dg-do compile } 2! Verify error diagnosis for invalid combinations of IMPLICIT statements 3IMPLICIT NONE 4IMPLICIT NONE ! { dg-error "Duplicate" } 5END 6 7SUBROUTINE a 8IMPLICIT REAL(b-j) 9implicit none ! { dg-error "IMPLICIT NONE .type. statement at .1. following an IMPLICIT statement" } 10END SUBROUTINE a 11 12subroutine b 13implicit none 14implicit real(g-k) ! { dg-error "IMPLICIT statement at .1. following an IMPLICIT NONE .type. statement" } 15end subroutine b 16 17subroutine c 18implicit real(a-b) 19implicit integer (b-c) ! { dg-error "already" } 20implicit real(d-f), complex(f-g) ! { dg-error "already" } 21end subroutine c 22