Subversion Repositories openrisc

! { dg-do compile }

! { dg-options "-Wall" }

!

! PR fortran/45823

!

! We used to warn about

!  "Type specified for intrinsic function" for this file

!

use iso_c_binding

use iso_Fortran_env

implicit none

intrinsic sin

real :: x = 3.4

print *, sin(x), c_sizeof(c_int), compiler_options(), compiler_version()

end

module test_mod

    use iso_fortran_env

end module test_mod

subroutine test

use test_mod

end subroutine test

! { dg-final { cleanup-modules "test_mod" } }