blob: 71fde9db68f5853e8dc4334b43ca6247ad57e366 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
! { 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
|
