codekingpro/portable-devtools

1        ! When gh18335_workaround is defined as an extension,
2        ! the issue cannot be reproduced.
3        !subroutine gh18335_workaround(f, y)
4        !  implicit none
5        !  external f
6        !  integer(kind=1) :: y(1)
7        !  call f(y)
8        !end subroutine gh18335_workaround
9
10        function gh18335(f) result (r)
11          implicit none
12          external f
13          integer(kind=1) :: y(1), r
14          y(1) = 123
15          call f(y)
16          r = y(1)
17        end function gh18335
18