1 ! We want to check that ISHFT evaluates its arguments only once
4 ! { dg-options "-fdump-tree-original" }
8 if (leadz (foo()) /= bit_size(0) - 1) call abort
9 if (leadz (foo()) /= bit_size(0) - 2) call abort
10 if (trailz (foo()) /= 0) call abort
11 if (trailz (foo()) /= 2) call abort
12 if (trailz (foo()) /= 0) call abort
13 if (trailz (foo()) /= 1) call abort
17 integer function foo ()
18 integer, save :: i = 0
25 ! The regexp "foo ()" should be seen once in the dump:
26 ! -- once in the function definition itself
27 ! -- plus as many times as the function is called
29 ! { dg-final { scan-tree-dump-times "foo *\\\(\\\)" 8 "original" } }
30 ! { dg-final { cleanup-tree-dump "original" } }