| ! { dg-do compile } | |
| ! | |
| ! PR fortran/38718 | |
| ! | |
| implicit none | |
| real(kind=8), parameter :: r = kind(0) + 0.2 | |
| complex(kind=8), parameter :: c = (r, -9.3) | |
| integer, parameter :: k = nint(dreal(c)) | |
| integer, parameter :: l = nint(realpart(c)) | |
| integer(kind=k) :: i | |
| integer(kind=l) :: j | |
| i = 42 | |
| j = 42 | |
| print *, k, i, j, r | |
| end |