Another undef issue

This only happens with the full code, not with a simple example, but nevertheless I am showing it here in case you see anything that may explain it. The error is

Attempt to call a routine with six hundred and ninety two arguments when one was required.

! **	acknowledge message			*****  AW_Mess          *****
SUBROUTINE AW_Mess (MESS) 
	CHARACTER*(*)   MESS 
	print*,'mess=',mess
end subroutine

program main
#ifdef bit64    
    call aw_mess('DS_BlFSort not implemented!!')
#endif
end program

StamK

I would need to see some code that produces the failure.

I comes from one of the /CHECK components that checks the number of arguments in the call against the number in the subroutine but report is obviously spurious.

If you are not able to send me some code then all you can do is switch off /CHECK for this routine.