gcc/testsuite/gfortran.dg/iso_c_binding_compiler_3.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-Wall" }
   3 !
   4 ! PR fortran/45823
   5 !
   6 ! We used to warn about
   7 !  "Type specified for intrinsic function" for this file
   8 !
   9
  10 use iso_c_binding
  11 use iso_Fortran_env
  12 implicit none
  13 intrinsic sin
  14 real :: x = 3.4
  15 print *, sin(x), c_sizeof(c_int), compiler_options(), compiler_version()
  16 end
  17
  18
  19 module test_mod
  20     use iso_fortran_env
  21 end module test_mod
  22
  23 subroutine test
  24 use test_mod
  25 end subroutine test