2 ! PR71649 Internal Compiler Error
3 SUBROUTINE Compiler_Options ( Options, Version
, WriteOpt
) ! { dg-error "\(1\)" }
4 USE ISO_FORTRAN_ENV
, ONLY
: Compiler_Version
, Compiler_Options
! { dg-error "conflicts with the" }
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" }
12 END SUBROUTINE Compiler_Options