question about cleaning modules after a regression test

[Dominique Dhumieres]

Does anyone understand why the following code

! { dg-do compile }
MODULE input_cp2k_motion
  IMPLICIT NONE
  interface
    SUBROUTINE keyword_create(variants)
      CHARACTER(len=*), DIMENSION(:), &
      INTENT(in)                   :: variants
    end subroutine
  end interface
CONTAINS
  SUBROUTINE create_neb_section()
    CALL keyword_create(variants=(/"K"/))
  END SUBROUTINE create_neb_section
END MODULE input_cp2k_motion
! { dg-final { cleanup-modules "input_cp2k_motion" } }

does not clean input_cp2k_motion.mod after a regression test?

TIA

Dominique

PS it is a modification of gfortran.fortran-torture/compile/pr30147.f90