From a4f5a269e50b5644ecdd913968444bf2da45c62c Mon Sep 17 00:00:00 2001
From: Alex Richert <alexander.richert@noaa.gov>
Date: Fri, 12 Jan 2024 17:17:14 -0800
Subject: [PATCH] simplify test_fv3_io_def.F90

---
 tests/test_fv3_io_def.F90 | 48 +++++++++++++++++++--------------------
 1 file changed, 24 insertions(+), 24 deletions(-)

diff --git a/tests/test_fv3_io_def.F90 b/tests/test_fv3_io_def.F90
index 0dc494fa8..6ee34a7fc 100644
--- a/tests/test_fv3_io_def.F90
+++ b/tests/test_fv3_io_def.F90
@@ -36,10 +36,10 @@ program test_fv3_io_def
 
   allocate(lead_wrttask(10))
   lead_wrttask = 42
-  if (.not.all(lead_wrttask(1:10).eq.42)) stop 12
+  if (any(lead_wrttask(1:10).ne.42)) stop 12
   allocate(last_wrttask(12))
   last_wrttask = 43
-  if (.not.all(last_wrttask(1:12).eq.43)) stop 13
+  if (any(last_wrttask(1:12).ne.43)) stop 13
 
   allocate(output_grid(2))
   output_grid(1) = "ABC"
@@ -49,62 +49,62 @@ program test_fv3_io_def
 
   allocate(imo(6))
   imo(1:6) = 17
-  if (.not.all(imo.eq.17)) stop 16
+  if (any(imo.ne.17)) stop 16
   allocate(jmo(6))
   jmo(1:6) = 18
-  if (.not.all(jmo.eq.18)) stop 17
+  if (any(jmo.ne.18)) stop 17
 
   allocate(cen_lon(8))
   cen_lon(1:8) = 2.1
-  if(.not.all(cen_lon.eq.2.1)) stop 18
+  if(any(cen_lon.ne.2.1)) stop 18
   allocate(cen_lat(8))
   cen_lat(1:8) = 3.2
-  if(.not.all(cen_lat.eq.3.2)) stop 19
+  if(any(cen_lat.ne.3.2)) stop 19
 
   allocate(lon1(10))
   lon1(1:10) = 4.3
-  if(.not.all(lon1.eq.4.3)) stop 20
+  if(any(lon1.ne.4.3)) stop 20
   allocate(lat1(10))
   lat1(1:10) = 5.4
-  if(.not.all(lat1.eq.5.4)) stop 21
+  if(any(lat1.ne.5.4)) stop 21
 
   allocate(lon2(12))
   lon2(1:12) = 6.5
-  if(.not.all(lon2.eq.6.5)) stop 22
+  if(any(lon2.ne.6.5)) stop 22
   allocate(lat2(12))
   lat2(1:12) = 7.6
-  if(.not.all(lat2.eq.7.6)) stop 23
+  if(any(lat2.ne.7.6)) stop 23
 
   allocate(dlon(15))
   dlon(1:15) = 8.7
-  if(.not.all(dlon.eq.8.7)) stop 24
+  if(any(dlon.ne.8.7)) stop 24
   allocate(dlat(15))
   dlat(1:15) = 9.8
-  if(.not.all(dlat.eq.9.8)) stop 25
+  if(any(dlat.ne.9.8)) stop 25
 
   allocate(stdlat1(18))
   stdlat1(1:18) = 10.9
-  if(.not.all(stdlat1.eq.10.9)) stop 26
+  if(any(stdlat1.ne.10.9)) stop 26
   allocate(stdlat2(18))
   stdlat2(1:18) = 11.0
-  if(.not.all(stdlat2.eq.11.0)) stop 27
+  if(any(stdlat2.ne.11.0)) stop 27
 
   allocate(dx(20))
   dx(1:20) = 12.1
-  if(.not.all(dx.eq.12.1)) stop 28
+  if(any(dx.ne.12.1)) stop 28
   allocate(dy(20))
   dy(1:20) = 13.2
-  if(.not.all(dy.eq.13.2)) stop 29
+  if(any(dy.ne.13.2)) stop 29
 
   allocate(ideflate(25))
   ideflate(1:25) = 123
-  if(.not.all(ideflate.eq.123)) stop 30
+  if(any(ideflate.ne.123)) stop 30
   allocate(quantize_nsd(25))
   quantize_nsd(1:25) = 123
-  if(.not.all(quantize_nsd.eq.123)) stop 31
+  if(any(quantize_nsd.ne.123)) stop 31
   allocate(zstandard_level(25))
   zstandard_level(1:25) = 123
-  if(.not.all(zstandard_level.eq.123)) stop 32
+  if(any(zstandard_level.ne.123)) stop 32
 
   allocate(quantize_mode(5))
   quantize_mode(1:5) = "xyz"
@@ -112,18 +112,18 @@ program test_fv3_io_def
 
   allocate(ichunk2d(30))
   ichunk2d(1:30) = 50
-  if(.not.all(ichunk2d.eq.50)) stop 34
+  if(any(ichunk2d.ne.50)) stop 34
   allocate(jchunk2d(30))
   jchunk2d(1:30) = 51
-  if(.not.all(jchunk2d.eq.51)) stop 35
+  if(any(jchunk2d.ne.51)) stop 35
   allocate(ichunk3d(30))
   ichunk3d(1:30) = 52
-  if(.not.all(ichunk3d.eq.52)) stop 36
+  if(any(ichunk3d.ne.52)) stop 36
   allocate(jchunk3d(30))
   jchunk3d(1:30) = 53
-  if(.not.all(jchunk3d.eq.53)) stop 37
+  if(any(jchunk3d.ne.53)) stop 37
   allocate(kchunk3d(30))
   kchunk3d(1:30) = 54
-  if(.not.all(kchunk3d.eq.54)) stop 38
+  if(any(kchunk3d.ne.54)) stop 38
 
 end program test_fv3_io_def