Skip to content

Commit

Permalink
Remove obsolete caffeine assert stub
Browse files Browse the repository at this point in the history
  • Loading branch information
bonachea committed Jan 13, 2025
1 parent b53e6fd commit 68b5c9a
Showing 6 changed files with 1 addition and 50 deletions.
38 changes: 0 additions & 38 deletions src/caffeine/caffeine_assert_s.F90

This file was deleted.

1 change: 0 additions & 1 deletion src/caffeine/collective_subroutines/co_max_s.F90
Original file line number Diff line number Diff line change
@@ -5,7 +5,6 @@

submodule(prif:prif_private_s) co_max_s
use iso_c_binding, only : c_funloc
use assert_m

implicit none

1 change: 0 additions & 1 deletion src/caffeine/collective_subroutines/co_min_s.F90
Original file line number Diff line number Diff line change
@@ -5,7 +5,6 @@

submodule(prif:prif_private_s) co_min_s
use iso_c_binding, only : c_funloc
use assert_m

implicit none

1 change: 0 additions & 1 deletion src/caffeine/collective_subroutines/co_reduce_s.F90
Original file line number Diff line number Diff line change
@@ -7,7 +7,6 @@
use iso_c_binding, only : &
c_loc, c_funloc, c_associated, c_f_pointer, c_f_procpointer, c_char, c_double, &
c_float, c_int32_t
use assert_m

implicit none

9 changes: 1 addition & 8 deletions src/caffeine/prif_private_s.f90
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
! Copyright (c), The Regents of the University of California
! Terms of use are as specified in LICENSE.txt
submodule(prif) prif_private_s
!use assert_m
use assert_m
implicit none

type(team_data), target :: initial_team
@@ -10,13 +10,6 @@

interface

module subroutine assert(assertion, description, diagnostics)
implicit none
logical, intent(in) :: assertion
character(len=*), intent(in) :: description
class(*), intent(in), optional :: diagnostics
end subroutine

! ________ Program initiation and finalization ___________

subroutine caf_caffeinate( &
1 change: 0 additions & 1 deletion src/caffeine/program_startup_s.F90
Original file line number Diff line number Diff line change
@@ -29,7 +29,6 @@

#if ASSERT_PARALLEL_CALLBACKS
subroutine assert_init()
use assert_m
implicit none
assert_this_image => assert_callback_this_image
assert_error_stop => assert_callback_error_stop

0 comments on commit 68b5c9a

Please sign in to comment.