| !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 |
