1! { dg-do compile }
2! PR71649 Internal Compiler Error
3SUBROUTINE Compiler_Options ( Options, Version, WriteOpt )        ! { dg-error "\(1\)" }
4   USE ISO_FORTRAN_ENV, ONLY : Compiler_Version, Compiler_Options ! { dg-error "conflicts with the" }
5   IMPLICIT NONE
6   CHARACTER (LEN=*), INTENT(OUT) :: Options
7   CHARACTER (LEN=*), INTENT(OUT) :: Version
8   LOGICAL, INTENT(IN), OPTIONAL  :: WriteOpt
9   Version = Compiler_Version()  ! { dg-error "has no IMPLICIT type" }
10   Options = Compiler_Options()  ! { dg-error "Unexpected use of subroutine name" }
11   RETURN
12END SUBROUTINE Compiler_Options
13
14