Try to make GNU fail like Intel compiler (#2411)

Check association status of INTENT(IN) pointer qs_env%admm_env
cp2k · Nov 24, 2022 · e66a936 · e66a936
1 parent e3c5558
commit e66a936
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/motion/rt_propagation.F b/src/motion/rt_propagation.F
@@ -462,6 +462,7 @@ SUBROUTINE rt_initial_guess(qs_env, force_env, rtp_control)
          qs_env%run_rtp = .TRUE.
          ALLOCATE (qs_env%rtp)
          CALL get_qs_env(qs_env, matrix_s=matrix_s)
+         CPASSERT(ASSOCIATED(qs_env%admm_env))
          CALL rt_prop_create(qs_env%rtp, qs_env%mos, qs_env%mpools, dft_control, matrix_s(1)%matrix, &
                              rtp_control%linear_scaling, qs_env%admm_env%mos_aux_fit)