flang/test/Semantics/dfloat.f90

   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.
   4 module 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
  15 end module