compile_info Module Function

  1. meta_implementation.F90
  2. meta_implementation_mod
  3. compile_info

module function compile_info()

Arguments

None

Return Value real


Called by

proc~~compile_info~~CalledByGraph proc~compile_info compile_info interface~compile_info compile_info interface~compile_info->proc~compile_info

Contents

Source Code

compile_info

Source Code

  module function compile_info()
    character(len=40), parameter :: result_format = &
                                    '("Compiled with ",a," using options ",a)'
    write(compile_info,result_format) compiler_version(), compiler_options()
    compile_info = 'Compiled with "'//compiler_version()//   &
                   '" using options "'//compiler_options()// &
                   '"'
  end function compile_info