blob: adb86d5090cb6c3302b37af32b6e4efcc4139e97 [file] [log] [blame]
! PR fortran/78757
! { dg-do compile }
! { dg-options "-O1" }
program pr78757
implicit none
character (len = 30), target :: x
character (len = 30), pointer :: s
s => foo (30_8)
contains
function foo (i)
integer (8) :: i
character (len = i), pointer :: foo
foo => x
end function foo
end program pr78757