blob: 8eccb6b9e7a1112ae6b3b325c19f3facdb58b153 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
! { 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
|
