Fortran, ввод запятой

в том что для определённости лучше форматный ввод/вывод использовать

read(*,'(A1)') char
write(*,'(A1)') char

ps а char - встроенная функция не стоит ею обзывать переменную