blob: 8eccb6b9e7a1112ae6b3b325c19f3facdb58b153 [file] [log] [blame]
! { 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