! { dg-do compile } ! Verify error diagnosis for invalid combinations of IMPLICIT statements IMPLICIT NONE IMPLICIT NONE ! { dg-error "Duplicate" } END SUBROUTINE a IMPLICIT REAL(b-j) ! { dg-error "cannot follow" } implicit none ! { dg-error "cannot follow" } END SUBROUTINE a subroutine b implicit none implicit real(g-k) ! { dg-error "Cannot specify" } end subroutine b subroutine c implicit real(a-b) implicit integer (b-c) ! { dg-error "already" } implicit real(d-f), complex(f-g) ! { dg-error "already" } end subroutine c