35 lines · plain
1! RUN: %python %S/test_folding.py %s %flang_fc12! Check array sizes with varying extents, including extents where the upper3! bound is less than the lower bound4module m5 contains6 subroutine s1(a,b)7 real nada1(-2:-1) ! size = 28 real nada2(-1:-1) ! size = 19 real nada3( 0:-1) ! size = 010 real nada4( 1:-1) ! size = 011 real nada5( 2:-1) ! size = 012 real nada6( 3:-1) ! size = 013 real nada7( 5, 3:-1) ! size = 014 real nada8( -1) ! size = 015 16 integer, parameter :: size1 = size(nada1)17 integer, parameter :: size2 = size(nada2)18 integer, parameter :: size3 = size(nada3)19 integer, parameter :: size4 = size(nada4)20 integer, parameter :: size5 = size(nada5)21 integer, parameter :: size6 = size(nada6)22 integer, parameter :: size7 = size(nada7)23 integer, parameter :: size8 = size(nada8)24 25 logical, parameter :: test_size_1 = size1 == 226 logical, parameter :: test_size_2 = size2 == 127 logical, parameter :: test_size_3 = size3 == 028 logical, parameter :: test_size_4 = size4 == 029 logical, parameter :: test_size_5 = size5 == 030 logical, parameter :: test_size_6 = size6 == 031 logical, parameter :: test_size_7 = size7 == 032 logical, parameter :: test_size_8 = size8 == 033 end subroutine34end module35