Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr71649.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 1830386684a0 |
children |
line wrap: on
line source
! { dg-do compile } ! PR71649 Internal Compiler Error SUBROUTINE Compiler_Options ( Options, Version, WriteOpt ) ! { dg-error "\(1\)" } USE ISO_FORTRAN_ENV, ONLY : Compiler_Version, Compiler_Options ! { dg-error "conflicts with the" } IMPLICIT NONE CHARACTER (LEN=*), INTENT(OUT) :: Options CHARACTER (LEN=*), INTENT(OUT) :: Version LOGICAL, INTENT(IN), OPTIONAL :: WriteOpt Version = Compiler_Version() ! { dg-error "has no IMPLICIT type" } Options = Compiler_Options() ! { dg-error "Unexpected use of subroutine name" } RETURN END SUBROUTINE Compiler_Options