Add Ci workflow (#3)

* Create CI.yml

* Update CI.yml

Fix -D option

* add missing c_ptr and use .EQV. instead .EQ.

* compare files

* Update CI.yml

check directory

* Update CI.yml

There is a problem with assumed rank arrays and gfortran v9

* only test gcc-10 and gcc-11

.github/workflows/CI.yml

@@ -0,0 +1,46 @@
+name: zfp Fortran Testing
+
+# Define when to trigger the workflow
+on:
+  push:
+    branches: [main]
+  pull_request:
+    branches: [main]
+  workflow_dispatch:
+
+jobs:
+  test_bindings:
+    name: Test zfp Fortran example on ubuntu-latest
+    runs-on: ubuntu-latest
+
+    strategy:
+      matrix:
+        gcc-version: [10, 11]
+
+    steps:
+      # Setup GCC
+      - name: Get compiler
+        uses: fortran-lang/setup-fortran@v1
+        with:
+          compiler: gcc
+          version: ${{ matrix.gcc-version }}
+
+      # Clone the own repository to access test data files
+      - name: Clone own repository
+        uses: actions/checkout@v4
+        with:
+          fetch-depth: 0
+
+      # Build executable and compare output files
+      - name: Build simple and exe executables and compare files
+        run: |
+          cmake -S . -B build -DREAL_KIND=REAL64 -DBUILD_EXAMPLES=ON -DCMAKE_VERBOSE_MAKEFILE=ON
+          cmake --build build
+          cd build
+          ./exe -c
+          ./exe -d
+          cd _deps/zfp-build/bin/
+          ./simple > compressed_c.zfp
+          ./simple -d < compressed_c.zfp > decompressed_c.zfp
+          cmp compressed_c.zfp ../../../compressed.zfp && echo "Files are identical" || { echo "Files are different"; exit 1; }
+          cmp decompressed_c.zfp ../../../decompressed.zfp && echo "Files are identical" || { echo "Files are different"; exit 1; }

zfp_fct_wrapper.F90

@@ -1,5 +1,5 @@
 module zfp_fct_wrapper
-  use, intrinsic :: iso_c_binding, only : c_long, c_double, c_loc, c_sizeof
+  use, intrinsic :: iso_c_binding, only : c_ptr, c_long, c_double, c_loc, c_sizeof
   use, intrinsic :: iso_fortran_env
   use zfp
 
@@ -43,7 +43,7 @@ subroutine compress(indata, buffer, tolerance, precision, rate, parallel)
     if(present(tolerance) .and. present(precision)) stop 'only 1 parameter is allowed'
     if(present(tolerance) .and. present(rate)) stop 'only 1 parameter is allowed'
     if(present(rate) .and. present(precision)) stop 'only 1 parameter is allowed'
-    if(present(parallel) .and. (parallel .eq. .false.)) parl =.false.
+    if(present(parallel) .and. (parallel .eqv. .false.)) parl =.false.
 
     in_ptr = c_loc(indata); shap = shape(indata)
     if (c_sizeof(1._wp) .eq. 8) then
@@ -114,7 +114,7 @@ subroutine decompress(buffer, outdata, tolerance, precision, rate, parallel)
     if(present(tolerance) .and. present(precision)) stop 'only 1 parameter is allowed'
     if(present(tolerance) .and. present(rate)) stop 'only 1 parameter is allowed'
     if(present(rate) .and. present(precision)) stop 'only 1 parameter is allowed'
-    if(present(parallel) .and. (parallel .eq. .false.)) parl =.false.
+    if(present(parallel) .and. (parallel .eqv. .false.)) parl =.false.
 
     out_ptr = c_loc(outdata); shap = shape(outdata)
     if (c_sizeof(1._wp) .eq. 8) then