Make the program in test_fortran_frontend_bit_size_symbolic() a valid

fortran program that passes under `gfortran -Wall`.
spcl · Nov 5, 2024 · 8e05082 · 8e05082
1 parent 4cf4ebf
commit 8e05082
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/tests/fortran/intrinsic_basic_test.py b/tests/fortran/intrinsic_basic_test.py
@@ -42,9 +42,9 @@ def test_fortran_frontend_bit_size_symbolic():
     test_string = """
                     PROGRAM intrinsic_math_test_bit_size
                     implicit none
-                    integer :: arrsize
-                    integer :: arrsize2
-                    integer :: arrsize3
+                    integer, parameter :: arrsize = 2
+                    integer, parameter :: arrsize2 = 3
+                    integer, parameter :: arrsize3 = 4
                     integer :: res(arrsize)
                     integer :: res2(arrsize, arrsize2, arrsize3)
                     integer :: res3(arrsize+arrsize2, arrsize2 * 5, arrsize3 + arrsize2*arrsize)