[Bug fortran/66725] Issue with silent conversion int to char, struggling in gfc_widechar_to_char

[gerhard.steinmetz.fortran@t-online.de]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66725

--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fortran@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