Projet_SETI_RISC-V/riscv-gnu-toolchain/binutils/gdb/testsuite/gdb.fortran/charset.f90
2023-03-06 14:48:14 +01:00

10 lines
152 B
Fortran

character(kind=1) :: x
character(kind=4) :: c
character(kind=4,len=5) :: str
x = 'j'
c = 4_'k'
str = 4_'lmnop'
! break-here
print *, c
print *, str
end