! { dg-lto-do 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 |