blob: e4d20605f24c08749c5e8cd1229447f592bd9065 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
! { dg-do run }
! { dg-additional-options "-fdump-tree-original" }
! PR 45424 - compile-time simplification of is_contiguous
program main
real, dimension(10,5) :: a
character (len=1) :: line
write (unit=line,fmt='(L1)') is_contiguous(a(4:2,:))
if (line /= 'F') stop 1
write (unit=line,fmt='(L1)') is_contiguous(a(:,2:4))
if (line /= 'T') stop 1
write (unit=line,fmt='(L1)') is_contiguous(a(2:4,3:4))
if (line /= 'F') stop 3
write (unit=line,fmt='(L1)') is_contiguous(a(::2,:))
if (line /= 'F') stop 4
write (unit=line,fmt='(L1)') is_contiguous(a(:,::2))
if (line /= 'F') stop 5
end program main
! { dg-final { scan-tree-dump-not " _gfortran_is_contiguous" "original" } }
|
