is there a dummy command in Fortran which does nothing ?
I have a lot of sobroutines, which jump to the end of the subroutine (via goto 10), in case of an Error
I gave the label 10 before the call Debug(), but this works only if _DEBUG_MODE is defined, if not, the label 10 is not found. So I want to make a dummy command, which does nothing, hence it is not allowed to put a label to an empty line.
subroutine AAA_test
implicit none
integer:: i = 1
if (Error) goto 10
...
10 dummy_call
!DEC$ IF DEFINED (_DEBUG_MODE)
call Debug_it(0,"","")
!DEC$ ENDIF
end subroutine AAA_test
