debug_loc Function

public pure function debug_loc(file, line) result(s)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: file
integer, intent(in) :: line

Return Value character(len=256)


Called by

proc~~debug_loc~~CalledByGraph proc~debug_loc debug_loc program~simple simple program~simple->proc~debug_loc

Source Code

   pure function debug_loc(file, line) result(s)
      character(*), intent(in) :: file
      integer,      intent(in) :: line
      character(len=256) :: s
      write(s,'(a,":",i0)') trim(file), line
   end function debug_loc