! { dg-lto-run } ! PR 87689 - this used to fail for POWER, plus it used to ! give warnings about mismatches with LTO. ! Original test case by Judicaƫl Grasset. program main implicit none character :: c character(len=20) :: res, doesntwork_p8 external doesntwork_p8 c = 'o' res = doesntwork_p8(c,1,2,3,4,5,6) if (res /= 'foo') stop 3 end program main