1! { dg-do compile } 2! PR71649 Internal Compiler Error 3SUBROUTINE Compiler_Options ( Options, Version, WriteOpt ) 4 USE ISO_FORTRAN_ENV, ONLY : Compiler_Version, Compiler_Options ! { dg-error "already declared" } 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() 10 Options = Compiler_Options() ! { dg-error "Unexpected use of subroutine name" } 11 RETURN 12END SUBROUTINE Compiler_Options 13 14