¿Error de programación en Fortran?
Hay dos problemas con su programa Fortran:
1len=11 se escribe como len-11
2weekday se escribe como fin de semana
Programa completo como sigue (ver comentarios para modificaciones)
PROGRAMA semana_día_semana
IMPLICITO NINGUNO
CARACTER(len=11)::c_día
CARACTER( len=11)::c_type ! Aquí cambie (len-11) a (len=11)
WRITE(*,*)'Ingrese el nombre de la fecha:'
READ(*,*)c_day
p>
SELECCIONAR CASO(c_day)
CASE('lunes','martes','miércoles','jueves','viernes')
c_type ='Día laborable '! Cambie los fines de semana a días laborables aquí
CASE('Saturday','Sunday')
c_type='Weekend'
CASE DEFAULT
c_type='Día no válido'
END SELECT
WRITE(*,*)'Tipo de día=',c_type
END PROGRAM semana_día_semana p>