Subroutine Call and LAPACK Utility Function

Hi,

I'm trying to run a very simple code that finds machine epsilon with DLAMCH from LAPACK utility function and calls some random subroutine afterward. When I try to run this code, the error I get is:

error #6404: This name does not have a type, and must have an explicit type.   [DLAMCH]

PROGRAM Check
IMPLICIT NONE
!DEC$ NOFREEFORM
      include 'mkl_lapack.fi'
!DEC$ FREEFORM
    Real*8 eps
    eps  = DLAMCH('E')
    Call SubTest
End Program
SUBROUTINE SubTest
    Write(*,*) 'Test'
Return
END

However, when I remove all the lines related to the subroutine SubTest, the code can be compiled just fine. Why do I receive this error when calling a subroutine? Any help is appriciated.

Samuel