!RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s

!CHECK: portability: TRANSFER(BOZ literal) is not standard [-Wtransfer-boz]
!CHECK: portability: TRANSFER(BOZ literal) is not standard [-Wtransfer-boz]
!CHECK: portability: TRANSFER(BOZ literal) is not standard [-Wtransfer-boz]
!CHECK: portability: TRANSFER(BOZ literal) is not standard [-Wtransfer-boz]
!CHECK: portability: TRANSFER(BOZ literal) is not standard [-Wtransfer-boz]
!CHECK: PRINT *, -17_1
!CHECK: PRINT *, -16657_2
!CHECK: PRINT *, -559038737_4
!CHECK: PRINT *, -6.259853398707798016e18_4
!CHECK: PRINT *, 1.8457939563190925445492984919045437485528002903297587499184927815557801644025850059853181797614625558939883606558067941052215743386077465406508281130260792904117042434297523782789810991060595088402505831985608687099349932384478542748214418349497866218005870896526832696740683567118136284392505567470522678176873737470272665943917715636680452977840047387616237048162886116765806372690690621665407240253312632381089695794498069551496558727944808752442655077077609749137334421734380446229972733723471196114034171513283476953482396960122117078210644171413215132537631249069125441199719426016512325803207900875869312966829207468856964517085119314095898691593840972164432952065765882286023532502465793032567186884340163939544586513274992967126308940351009368896484375e-314_8

print *, transfer(z'deadbeef', 1_1)
print *, transfer(z'deadbeef', 1_2)
print *, transfer(z'deadbeef', 1_4)
print *, transfer(z'deadbeef', 1._4)
print *, transfer(z'deadbeef', 1._8)
end
