https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66725
--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fort...@t-online.de>
---
Whereas :
$ cat y_test_char_1.f90
program p
print *, char(100)
end
$ gfortran y_test_char_1.f90
$ a.out
d
---
$ cat y_test_char_2.f90
program p
print *, char(257)
end
$ gfortran y_test_char_2.f90
y_test_char_2.f90:2:17:
print *, char(257)
1
Error: Argument of CHAR function at (1) is too large for the collating sequence
of kind 1
---
$ cat y_test_char_3.f90
program p
write (1, asynchronous=char(100))
end
$ gfortran y_test_char_3.f90
y_test_char_3.f90:2:36:
write (1, asynchronous=char(100))
1
Error: ASYNCHRONOUS specifier in WRITE statement at (1) has invalid value 'd'
---
$ cat y_test_char_4.f90
program p
write (1, asynchronous=char(257))
end
$ gfortran y_test_char_4.f90
y_test_char_4.f90:2:26:
write (1, asynchronous=char(257))
1
Error: ASYNCHRONOUS= specifier at (1) must be an initialization expression
