Program Teste

print *, Lala()

Contains

Subroutine Tango()

        print *, "Tango!"

EndSubroutine

Real Function Lala()

        CALL Tango()
        Lala =  5.0
EndFunction
End


!-----------------------------------------------------------------------------------------
!lucas@sonic1:~$ gfortran Tango.f90 -o Tango
!lucas@sonic1:~$ ./Tango
! Tango!
!   5.0000000
!lucas@sonic1:~$
!-----------------------------------------------------------------------------------------