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 10use iso_c_binding 11use iso_Fortran_env 12implicit none 13intrinsic sin 14real :: x = 3.4 15print *, sin(x), c_sizeof(c_int), compiler_options(), compiler_version() 16end 17 18 19module test_mod 20 use iso_fortran_env 21end module test_mod 22 23subroutine test 24use test_mod 25end subroutine test 26