1 ! PR rtl-optimization/55330
3 ! { dg-options "-O -fPIC -fno-dse -fno-guess-branch-probability" }
10 character(128) :: line
= 'abcdefghijklmnopqrstuvwxyz'
13 character(128) :: word
15 call redirect_((/word
/))
17 subroutine redirect_ (ch
)
19 if (ch(1) /= line
) call abort ()
20 end subroutine redirect_
28 type(point
), pointer, public
:: stdin
=> NULL()
36 type(point
), pointer :: ptr
37 character(128) :: io(:)
38 if (associated (ptr
)) call abort ()
39 if (io(1) .ne
. line
) call abort ()
47 integer :: i(6) = (/1,6,3,4,5,2/)
48 character (6) :: a
= 'hello ', t
49 character(len
=1) :: s(6) = (/'g','g','d','d','a','o'/)
52 call option_stopwatch_s (a
)
57 call option_stopwatch_a ((/a
,'hola! ', t
/))
61 subroutine option_stopwatch_s(a
)
62 character (*), intent(in
) :: a
63 character (len
=len(a
)) :: b
66 call option_stopwatch_a((/a
, b
, 'goddag'/))
67 end subroutine option_stopwatch_s
68 subroutine option_stopwatch_a (a
)
70 if (any (a
.ne
. (/'hello ','hola! ','goddag'/))) call abort ()
71 end subroutine option_stopwatch_a