Subversion Repositories openrisc

! { dg-do link }

!

! PR fortran/40569

!

! Check compiler_version/compiler_options intrinsics

!

subroutine test()

  use iso_fortran_env, only: compiler_version

  print '(3a)', '>>',compiler_version(),'<<'

end

use iso_fortran_env, foo => compiler_version, bar => compiler_version

  implicit none

  print *, foo()

  print *, bar()

  print '(3a)', '>',compiler_options(),'<'

  call test()

end