From f2825c4fff655f9e6a6f24e9bb39d5f68713d64f Mon Sep 17 00:00:00 2001 From: vmagnin Date: Wed, 6 Mar 2024 10:17:57 +0100 Subject: [PATCH] test/check.f90: added a message explaining the check() error messages --- test/check.f90 | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/test/check.f90 b/test/check.f90 index 96641bf..cd82700 100644 --- 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"