18 lines
506 B
Fortran
18 lines
506 B
Fortran
![]() |
! When gh18335_workaround is defined as an extension,
|
||
|
! the issue cannot be reproduced.
|
||
|
!subroutine gh18335_workaround(f, y)
|
||
|
! implicit none
|
||
|
! external f
|
||
|
! integer(kind=1) :: y(1)
|
||
|
! call f(y)
|
||
|
!end subroutine gh18335_workaround
|
||
|
|
||
|
function gh18335(f) result (r)
|
||
|
implicit none
|
||
|
external f
|
||
|
integer(kind=1) :: y(1), r
|
||
|
y(1) = 123
|
||
|
call f(y)
|
||
|
r = y(1)
|
||
|
end function gh18335
|