RosettaCodeData/Task/User-input-Text/Fortran/user-input-text.f

character(20) :: s
integer :: i

print*, "Enter a string (max 20 characters)"
read*, s
print*, "Enter the integer 75000"
read*, i