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
26
27
28
29
|
! RUN: %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s
type :: t
end type
integer :: acos
double precision :: cos
!CHECK: Explicit type declaration ignored for intrinsic function 'int'
complex :: int
character :: sin
logical :: asin
type(t) :: atan
!CHECK: INTRINSIC statement for explicitly-typed 'int'
intrinsic int
!CHECK: The result type 'REAL(4)' of the intrinsic function 'acos' is not the explicit declared type 'INTEGER(4)'
!CHECK: Ignored declaration of intrinsic function 'acos'
print *, acos(0.)
!CHECK: The result type 'REAL(4)' of the intrinsic function 'cos' is not the explicit declared type 'REAL(8)'
!CHECK: Ignored declaration of intrinsic function 'cos'
print *, cos(0.)
!CHECK: The result type 'REAL(4)' of the intrinsic function 'sin' is not the explicit declared type 'CHARACTER(KIND=1,LEN=1_8)'
!CHECK: Ignored declaration of intrinsic function 'sin'
print *, sin(0.)
!CHECK: The result type 'REAL(4)' of the intrinsic function 'asin' is not the explicit declared type 'LOGICAL(4)'
!CHECK: Ignored declaration of intrinsic function 'asin'
print *, asin(0.)
!CHECK: The result type 'REAL(4)' of the intrinsic function 'atan' is not the explicit declared type 't'
!CHECK: Ignored declaration of intrinsic function 'atan'
print *, atan(0.)
end
|
