1! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s 2! Checks that a call to the legacy extension intrinsic function 3! DFLOAT is transmogrified into a type conversion operation. 4module m 5 !CHECK: d = 1._8 6 double precision :: d = dfloat(1) 7 contains 8 subroutine sub(n) 9 integer, intent(in) :: n 10 !CHECK: 2._8 11 print *, dfloat(2) 12 !CHECK: real(n,kind=8) 13 print *, dfloat(n) 14 end subroutine 15end module 16