| 1 | ! CHECK: 170141183460469231731687303715884105727 |
| 2 | ! IR_CHECK: call @afs_fmt_begin_internal_ex( |
| 3 | ! IR_CHECK: call @afs_fmt_push_int128( |
| 4 | ! ASM_CHECK: _afs_fmt_begin_internal_ex |
| 5 | ! ASM_CHECK: _afs_fmt_push_int128 |
| 6 | ! REPRO_CHECK: asm |
| 7 | ! REPRO_CHECK: obj |
| 8 | ! OPT_EQ: O0,O1,O2,O3,Os,Ofast => stdout|stderr|exit |
| 9 | program integer16_internal_format |
| 10 | implicit none |
| 11 | character(len=64) :: buf |
| 12 | integer(16) :: big |
| 13 | |
| 14 | big = 170141183460469231731687303715884105727_16 |
| 15 | write(buf, '(I40)') big |
| 16 | |
| 17 | print *, trim(buf) |
| 18 | end program integer16_internal_format |
| 19 |