PROGRAM ENAMORADOS
CHARACTER (LEN=5) :: ENAMORADO
CHARACTER (LEN=5) :: ENAMORADA
CHARACTER (LEN=2) :: RESULTADO

ENAMORADO = JESUS
ENAMORADA = LAURA

SUBROUTINE sequierenfoshar (CHICO, CHICA, RESULTADO)
CHARACTER (LEN=5) :: CHICO
CHARACTER (LEN=5) :: CHICA
CHARACTER (LEN=2) :: RESULTADO

IF(CHICO == JESUS && CHICA == LAURA) then
RESULTADO = OK
return
ELSE
RESULTADO = NO
return
ENDIF
END

IF(sequierenfoshar(ENAMORADO, ENAMORADA,RESULTADO) == OK) THEN
PRINT *, ESTABA CLARO
ENDIF

END