From 8e05082e39998f74c84609cb4be621626d2992d2 Mon Sep 17 00:00:00 2001 From: Pratyai Mazumder Date: Tue, 5 Nov 2024 08:43:42 +0100 Subject: [PATCH] Make the program in `test_fortran_frontend_bit_size_symbolic()` a valid fortran program that passes under `gfortran -Wall`. --- tests/fortran/intrinsic_basic_test.py | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/tests/fortran/intrinsic_basic_test.py b/tests/fortran/intrinsic_basic_test.py index 5392cf9148..8e6adc4c15 100644 --- 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)