20 lines · plain
1!RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s2 3!CHECK: portability: TRANSFER(BOZ literal) is not standard [-Wtransfer-boz]4!CHECK: portability: TRANSFER(BOZ literal) is not standard [-Wtransfer-boz]5!CHECK: portability: TRANSFER(BOZ literal) is not standard [-Wtransfer-boz]6!CHECK: portability: TRANSFER(BOZ literal) is not standard [-Wtransfer-boz]7!CHECK: portability: TRANSFER(BOZ literal) is not standard [-Wtransfer-boz]8!CHECK: PRINT *, -17_19!CHECK: PRINT *, -16657_210!CHECK: PRINT *, -559038737_411!CHECK: PRINT *, -6.259853398707798016e18_412!CHECK: PRINT *, 1.8457939563190925445492984919045437485528002903297587499184927815557801644025850059853181797614625558939883606558067941052215743386077465406508281130260792904117042434297523782789810991060595088402505831985608687099349932384478542748214418349497866218005870896526832696740683567118136284392505567470522678176873737470272665943917715636680452977840047387616237048162886116765806372690690621665407240253312632381089695794498069551496558727944808752442655077077609749137334421734380446229972733723471196114034171513283476953482396960122117078210644171413215132537631249069125441199719426016512325803207900875869312966829207468856964517085119314095898691593840972164432952065765882286023532502465793032567186884340163939544586513274992967126308940351009368896484375e-314_813 14print *, transfer(z'deadbeef', 1_1)15print *, transfer(z'deadbeef', 1_2)16print *, transfer(z'deadbeef', 1_4)17print *, transfer(z'deadbeef', 1._4)18print *, transfer(z'deadbeef', 1._8)19end20