16 lines · plain
1! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s2! Checks that a call to the legacy extension intrinsic function3! DFLOAT is transmogrified into a type conversion operation.4module m5 !CHECK: d = 1._86 double precision :: d = dfloat(1)7 contains8 subroutine sub(n)9 integer, intent(in) :: n10 !CHECK: 2._811 print *, dfloat(2)12 !CHECK: real(n,kind=8)13 print *, dfloat(n)14 end subroutine15end module16