blob: 137f089f44c7305e32bb74b4024084df0aa50cfc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
! { dg-do compile }
! { dg-options "-std=f95" }
program bug
implicit none
complex(kind=8) z
double precision x
z = cmplx(1.e0_8, 2.e0_8)
x = imag(z) ! { dg-error "has no IMPLICIT type" "" }
x = imagpart(z) ! { dg-error "has no IMPLICIT type" "" }
x = realpart(z) ! { dg-error "has no IMPLICIT type" "" }
x = imag(x) ! { dg-error "has no IMPLICIT type" "" }
x = imagpart(x) ! { dg-error "has no IMPLICIT type" "" }
x = realpart(x) ! { dg-error "has no IMPLICIT type" "" }
end
|
