Sign in
llvm
/
llvm-project
/
flang
/
refs/heads/main
/
.
/
test
/
Lower
/
Intrinsics
/
dble.f90
blob: 3a896443f5c12faa0aee03914ea52df6675c6c8d [
file
] [
log
] [
blame
]
!
RUN
:
bbc
-
emit
-
fir
%
s
-
o
-
|
FileCheck
%
s
!
CHECK
-
LABEL
:
dble_test
subroutine dble_test
(
a
)
real
::
a
!
CHECK
:
fir
.
convert
{{.*}}
:
(
f32
)
->
f64
print
*,
dble
(
a
)
end
subroutine