View previous topic :: View next topic |
Author |
Message |
StamK
Joined: 12 Oct 2016 Posts: 159
|
Posted: Fri Dec 18, 2020 11:00 am Post subject: 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.
Code: |
! ** 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
|
|
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7933 Location: Salford, UK
|
Posted: Fri Dec 18, 2020 12:29 pm Post subject: |
|
|
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. |
|
Back to top |
|
|
|