gcc/testsuite/gfortran.dg/implicit_4.f90

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