From 0f3943b427aa1e37ad54fef0ea15a32b6bf20146 Mon Sep 17 00:00:00 2001 From: Pratyai Mazumder Date: Tue, 5 Nov 2024 09:06:30 +0100 Subject: [PATCH] Make test programs valid. --- tests/fortran/array_attributes_test.py | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/tests/fortran/array_attributes_test.py b/tests/fortran/array_attributes_test.py index ca9282308d..0c9bc3e3a0 100644 --- a/tests/fortran/array_attributes_test.py +++ b/tests/fortran/array_attributes_test.py @@ -46,7 +46,7 @@ def test_fortran_frontend_array_attribute_no_offset_symbol(): test_string = """ PROGRAM index_offset_test implicit none - integer :: arrsize + integer, parameter :: arrsize = 5 double precision, dimension(arrsize) :: d CALL index_test_function(d,arrsize) end @@ -159,8 +159,8 @@ def test_fortran_frontend_array_attribute_offset_symbol2(): test_string = """ PROGRAM index_offset_test implicit none - integer :: arrsize - integer :: arrsize2 + integer, parameter :: arrsize = 5 + integer, parameter :: arrsize2 = 5 double precision, dimension(arrsize:arrsize2) :: d CALL index_test_function(d, arrsize, arrsize2) end @@ -239,8 +239,8 @@ def test_fortran_frontend_array_offset_symbol(): test_string = """ PROGRAM index_offset_test implicit none - integer :: arrsize - integer :: arrsize2 + integer, parameter :: arrsize = 5 + integer, parameter :: arrsize2 = 5 double precision :: d(arrsize:arrsize2) CALL index_test_function(d, arrsize, arrsize2) end