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