tjh.dev
1diff --git a/src/start/cp2k.F b/src/start/cp2k.F
2index f69146ea3..a195f0620 100644
3--- a/src/start/cp2k.F
4+++ b/src/start/cp2k.F
5@@ -58,8 +58,7 @@ PROGRAM cp2k
6 USE input_cp2k, ONLY: create_cp2k_root_section
7 USE input_section_types, ONLY: section_release,&
8 section_type
9- USE iso_fortran_env, ONLY: compiler_options,&
10- compiler_version
11+ USE iso_fortran_env, ONLY: compiler_version
12 USE kinds, ONLY: default_path_length
13 USE machine, ONLY: default_output_unit
14 #include "../base/base_uses.f90"
15@@ -70,7 +69,6 @@ PROGRAM cp2k
16 arg_att, command
17 CHARACTER(LEN=default_path_length), &
18 DIMENSION(:, :), ALLOCATABLE :: initial_variables, initial_variables_tmp
19- CHARACTER(LEN=:), ALLOCATABLE :: compiler_options_string
20 INTEGER :: output_unit, l, i, var_set_sep, inp_var_idx
21 INTEGER :: ierr, i_arg
22 LOGICAL :: check, usage, echo_input, command_line_error
23@@ -328,14 +326,6 @@ PROGRAM cp2k
24 WRITE (output_unit, "(T2,A)") cp2k_version, &
25 "Source code revision "//TRIM(compile_revision), &
26 TRIM(cp2k_flags())
27- compiler_options_string = compiler_options()
28- WRITE (output_unit, "(T2,A,A)") "compiler: ", compiler_version()
29- WRITE (output_unit, "(T2,A)") "compiler options:"
30- DO i = 0, (LEN(compiler_options_string) - 1)/68
31- WRITE (output_unit, "(T4,A)") &
32- compiler_options_string(i*68 + 1:MIN(LEN(compiler_options_string), (i + 1)*68))
33- END DO
34- DEALLOCATE (compiler_options_string)
35 END IF
36 END IF
37