37 lines
1.9 KiB
Diff
37 lines
1.9 KiB
Diff
diff --git a/src/start/cp2k.F b/src/start/cp2k.F
|
|
index f69146ea3..a195f0620 100644
|
|
--- a/src/start/cp2k.F
|
|
+++ b/src/start/cp2k.F
|
|
@@ -58,8 +58,7 @@ PROGRAM cp2k
|
|
USE input_cp2k, ONLY: create_cp2k_root_section
|
|
USE input_section_types, ONLY: section_release,&
|
|
section_type
|
|
- USE iso_fortran_env, ONLY: compiler_options,&
|
|
- compiler_version
|
|
+ USE iso_fortran_env, ONLY: compiler_version
|
|
USE kinds, ONLY: default_path_length
|
|
USE machine, ONLY: default_output_unit
|
|
#include "../base/base_uses.f90"
|
|
@@ -70,7 +69,6 @@ PROGRAM cp2k
|
|
arg_att, command
|
|
CHARACTER(LEN=default_path_length), &
|
|
DIMENSION(:, :), ALLOCATABLE :: initial_variables, initial_variables_tmp
|
|
- CHARACTER(LEN=:), ALLOCATABLE :: compiler_options_string
|
|
INTEGER :: output_unit, l, i, var_set_sep, inp_var_idx
|
|
INTEGER :: ierr, i_arg
|
|
LOGICAL :: check, usage, echo_input, command_line_error
|
|
@@ -328,14 +326,6 @@ PROGRAM cp2k
|
|
WRITE (output_unit, "(T2,A)") cp2k_version, &
|
|
"Source code revision "//TRIM(compile_revision), &
|
|
TRIM(cp2k_flags())
|
|
- compiler_options_string = compiler_options()
|
|
- WRITE (output_unit, "(T2,A,A)") "compiler: ", compiler_version()
|
|
- WRITE (output_unit, "(T2,A)") "compiler options:"
|
|
- DO i = 0, (LEN(compiler_options_string) - 1)/68
|
|
- WRITE (output_unit, "(T4,A)") &
|
|
- compiler_options_string(i*68 + 1:MIN(LEN(compiler_options_string), (i + 1)*68))
|
|
- END DO
|
|
- DEALLOCATE (compiler_options_string)
|
|
END IF
|
|
END IF
|
|
|