| ! { dg-do link } |
| ! The compiler_options() function is dependent on the |
| ! command line options and thus incompatible with -fcompare-debug. |
| ! { dg-skip-if "-fcompare-debug incompatible test" { *-*-* } { "-fcompare-debug" } { "" } } */ |
| ! |
| ! 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 |
