compiler_t Derived Type

type, public :: compiler_t

Definition of compiler object


Contents

Variables

Type-Bound Procedures

Source Code

compiler_t

Components

Type Visibility Attributes Name Initial
character(len=:), public, allocatable :: cc

Path to the C compiler
character(len=:), public, allocatable :: cxx

Path to the C++ compiler
logical, public :: echo = .true.

Print all commands
character(len=:), public, allocatable :: fc

Path to the Fortran compiler
integer(kind=compiler_enum), public :: id = id_unknown

Identifier of the compiler
logical, public :: verbose = .true.

Verbose output of command

Type-Bound Procedures

procedure, public, :: compile_c

Compile a C object

  • public subroutine compile_c(self, input, output, args, log_file, stat)

    Compile a C object

    Arguments

    Type IntentOptional Attributes Name
    class(compiler_t), intent(in) :: self

    Instance of the compiler object
    character(len=*), intent(in) :: input

    Source file input
    character(len=*), intent(in) :: output

    Output file of object
    character(len=*), intent(in) :: args

    Arguments for compiler
    character(len=*), intent(in) :: log_file

    Compiler output log file
    integer, intent(out) :: stat

    Status flag

procedure, public, :: compile_cpp

Compile a CPP object

  • public subroutine compile_cpp(self, input, output, args, log_file, stat)

    Compile a CPP object

    Arguments

    Type IntentOptional Attributes Name
    class(compiler_t), intent(in) :: self

    Instance of the compiler object
    character(len=*), intent(in) :: input

    Source file input
    character(len=*), intent(in) :: output

    Output file of object
    character(len=*), intent(in) :: args

    Arguments for compiler
    character(len=*), intent(in) :: log_file

    Compiler output log file
    integer, intent(out) :: stat

    Status flag

procedure, public, :: compile_fortran

Compile a Fortran object

  • public subroutine compile_fortran(self, input, output, args, log_file, stat)

    Compile a Fortran object

    Arguments

    Type IntentOptional Attributes Name
    class(compiler_t), intent(in) :: self

    Instance of the compiler object
    character(len=*), intent(in) :: input

    Source file input
    character(len=*), intent(in) :: output

    Output file of object
    character(len=*), intent(in) :: args

    Arguments for compiler
    character(len=*), intent(in) :: log_file

    Compiler output log file
    integer, intent(out) :: stat

    Status flag

procedure, public, :: enumerate_libraries

Enumerate libraries, based on compiler and platform

  • public function enumerate_libraries(self, prefix, libs) result(r)

    Enumerate libraries, based on compiler and platform

    Arguments

    Type IntentOptional Attributes Name
    class(compiler_t), intent(in) :: self
    character(len=*), intent(in) :: prefix
    type(string_t), intent(in) :: libs(:)

    Return Value character(len=:), allocatable

procedure, public, :: get_default_flags

Get default compiler flags

  • public function get_default_flags(self, release) result(flags)

    Arguments

    Type IntentOptional Attributes Name
    class(compiler_t), intent(in) :: self
    logical, intent(in) :: release

    Return Value character(len=:), allocatable

procedure, public, :: get_feature_flag

Get feature flag

  • public function get_feature_flag(self, feature) result(flags)

    Arguments

    Type IntentOptional Attributes Name
    class(compiler_t), intent(in) :: self
    character(len=*), intent(in) :: feature

    Return Value character(len=:), allocatable

procedure, public, :: get_include_flag

Get flag for include directories

  • public function get_include_flag(self, path) result(flags)

    Arguments

    Type IntentOptional Attributes Name
    class(compiler_t), intent(in) :: self
    character(len=*), intent(in) :: path

    Return Value character(len=:), allocatable

procedure, public, :: get_main_flags

Get flags for the main linking command

  • public subroutine get_main_flags(self, language, flags)

    Get special flags for the main linker

    Arguments

    Type IntentOptional Attributes Name
    class(compiler_t), intent(in) :: self
    character(len=*), intent(in) :: language
    character(len=:), intent(out), allocatable :: flags

procedure, public, :: get_module_flag

Get flag for module output directories

  • public function get_module_flag(self, path) result(flags)

    Arguments

    Type IntentOptional Attributes Name
    class(compiler_t), intent(in) :: self
    character(len=*), intent(in) :: path

    Return Value character(len=:), allocatable

procedure, public, :: is_gnu

Check whether this is a GNU compiler

  • public pure function is_gnu(self)

    Arguments

    Type IntentOptional Attributes Name
    class(compiler_t), intent(in) :: self

    Return Value logical

procedure, public, :: is_intel

Check whether this is an Intel compiler

  • public pure function is_intel(self)

    Arguments

    Type IntentOptional Attributes Name
    class(compiler_t), intent(in) :: self

    Return Value logical

procedure, public, :: is_unknown

Check whether compiler is recognized

  • public pure function is_unknown(self)

    Arguments

    Type IntentOptional Attributes Name
    class(compiler_t), intent(in) :: self

    Return Value logical

procedure, public, :: link

Link executable

  • public subroutine link(self, output, args, log_file, stat)

    Link an executable

    Arguments

    Type IntentOptional Attributes Name
    class(compiler_t), intent(in) :: self

    Instance of the compiler object
    character(len=*), intent(in) :: output

    Output file of object
    character(len=*), intent(in) :: args

    Arguments for compiler
    character(len=*), intent(in) :: log_file

    Compiler output log file
    integer, intent(out) :: stat

    Status flag

procedure, public, :: name => compiler_name

Return compiler name

  • public pure function compiler_name(self) result(name)

    Return a compiler name string

    Arguments

    Type IntentOptional Attributes Name
    class(compiler_t), intent(in) :: self

    Instance of the compiler object

    Return Value character(len=:), allocatable

    Representation as string

Source Code

type :: compiler_t
    !> Identifier of the compiler
    integer(compiler_enum) :: id = id_unknown
    !> Path to the Fortran compiler
    character(len=:), allocatable :: fc
    !> Path to the C compiler
    character(len=:), allocatable :: cc
    !> Path to the C++ compiler
    character(len=:), allocatable :: cxx
    !> Print all commands
    logical :: echo = .true.
    !> Verbose output of command
    logical :: verbose = .true.
contains
    !> Get default compiler flags
    procedure :: get_default_flags
    !> Get flag for module output directories
    procedure :: get_module_flag
    !> Get flag for include directories
    procedure :: get_include_flag
    !> Get feature flag
    procedure :: get_feature_flag
    !> Get flags for the main linking command
    procedure :: get_main_flags
    !> Compile a Fortran object
    procedure :: compile_fortran
    !> Compile a C object
    procedure :: compile_c
    !> Compile a CPP object
    procedure :: compile_cpp
    !> Link executable
    procedure :: link
    !> Check whether compiler is recognized
    procedure :: is_unknown
    !> Check whether this is an Intel compiler
    procedure :: is_intel
    !> Check whether this is a GNU compiler
    procedure :: is_gnu
    !> Enumerate libraries, based on compiler and platform
    procedure :: enumerate_libraries
    !> Return compiler name
    procedure :: name => compiler_name
end type compiler_t