1! { dg-do link } 2! 3! PR fortran/40569 4! 5! Check compiler_version/compiler_options intrinsics 6! 7subroutine test() 8 use iso_fortran_env, only: compiler_version 9 print '(3a)', '>>',compiler_version(),'<<' 10end 11 12use iso_fortran_env, foo => compiler_version, bar => compiler_version 13 implicit none 14 print *, foo() 15 print *, bar() 16 print '(3a)', '>',compiler_options(),'<' 17 call test() 18end 19