用fortran编写：输入一个小写字母，将其转换为大写字母后输出。

可以使用 Fortran 的 ASCII 函数来实现这个功能。

首先，使用 `read` 语句输入一个字符：

character :: c
read(*,*) c

然后，使用 ASCII 函数将字符转换为 ASCII 码：

ascii = int(c)

接下来，判断该字符是否为小写字母，如果是，就将其转换为大写字母：

if (ascii >= 97) then
  ascii = ascii - 32
endif

最后，使用 ASCII 函数将 ASCII 码转换回字符，并使用 `write` 语句输出：

c = char(ascii)
write(*,*) c

完整的程序如下：

program main
  character :: c
  integer :: ascii

  read(*,*) c
  ascii = int(c)
  if (ascii >= 97) then
    ascii = ascii - 32
  endif
  c = char(ascii)
  write(*,*) c
end program main