test/check.f90: added a message explaining the check() error messages

vmagnin · Mar 6, 2024 · f2825c4 · f2825c4
1 parent 9283055
commit f2825c4
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/test/check.f90 b/test/check.f90
@@ -21,7 +21,7 @@
 ! SOFTWARE.
 !-------------------------------------------------------------------------------
 ! Contributed by vmagnin: 2023-10-19
-! Last modification: vmagnin 2024-02-12
+! Last modification: vmagnin 2024-03-06
 !-------------------------------------------------------------------------------
 
 program check
@@ -77,6 +77,9 @@ program check
  & .or.(blue /= copy_colormap(0, 3))) error stop "ERROR: colormap%shift()"
 
  !! Test check() procedure within set() procedure
+ print *, "---------------------------------------------------------------------------"
+ print *, "The following error messages confirm that the private check() method is OK:"
+ print *, "---------------------------------------------------------------------------"
  ! Name is not in the list
  call cmap%set('actom10', 0.0_wp, 2.0_wp)
  if (cmap%get_name() /= 'grayC') error stop "ERROR: colormap%check() name"