FPM_TARGET_NAME Function

public pure function FPM_TARGET_NAME(type) result(msg)

Target type name

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: type

Return Value character(len=:), allocatable


Source Code

pure function FPM_TARGET_NAME(type) result(msg)
   integer, intent(in) :: type
   character(:), allocatable :: msg

   select case (type)
      case (FPM_TARGET_ARCHIVE);    msg = 'Archive'
      case (FPM_TARGET_CPP_OBJECT); msg = 'C++ object'
      case (FPM_TARGET_C_OBJECT);   msg = 'C Object'
      case (FPM_TARGET_EXECUTABLE); msg = 'Executable'
      case (FPM_TARGET_OBJECT);     msg = 'Object'
      case default;                 msg = 'Unknown'
   end select

end function FPM_TARGET_NAME