xref: /llvm-project/flang/test/Semantics/intrinsics01.f90 (revision 0b55a8dc6fe81a9b3f8c67ec0b5192baa4bc80b8) 
1! RUN: %python %S/test_errors.py %s %flang_fc1
2! Check for semantic errors for DREAL, DIMAG, DCONJG intrinsics
3
4subroutine s()
5  real :: a
6  complex(4) :: c4 ! test scalar
7  complex(8) :: c8
8  complex(16) :: c16(2) ! test array
9
10  !ERROR: Actual argument for 'a=' has bad type 'REAL(4)'
11  print *, dreal(a)
12
13  print *, dreal(c4)
14
15  print *, dreal(c8)
16
17  print *, dreal(c16)
18
19  !ERROR: Actual argument for 'z=' has bad type 'REAL(4)'
20  print *, dimag(a)
21
22  !ERROR: Actual argument for 'z=' has bad type or kind 'COMPLEX(4)'
23  print *, dimag(c4)
24
25  print *, dimag(c8)
26
27  !ERROR: Actual argument for 'z=' has bad type or kind 'COMPLEX(16)'
28  print *, dimag(c16)
29
30  !ERROR: Actual argument for 'z=' has bad type 'REAL(4)'
31  print *, dconjg(a)
32
33  !ERROR: Actual argument for 'z=' has bad type or kind 'COMPLEX(4)'
34  print *, dconjg(c4)
35
36  print *, dconjg(c8)
37
38  !ERROR: Actual argument for 'z=' has bad type or kind 'COMPLEX(16)'
39  print *, dconjg(c16)
40
41end subroutine
42