gcc/testsuite/gfortran.dg/iso_c_binding_compiler_1.f90

   1 ! { dg-do link }
   2 !
   3 ! PR fortran/40569
   4 !
   5 ! Check compiler_version/compiler_options intrinsics
   6 !
   7 subroutine test()
   8   use iso_fortran_env, only: compiler_version
   9   print '(3a)', '>>',compiler_version(),'<<'
  10 end
  11
  12 use 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()
  18 end