! { dg-do run }

! Check for PR fortran/82904
! Contributed by G.Steinmetz  <gscfq@t-online.de>

! This test checks that 'IPA pass: inline' passes.
! The initial version of the testcase contained coarrays, which does not work
! yet.

program p
   save
   character(:), allocatable :: x
   character(:), allocatable :: y
   allocate (character(3) :: y)
   allocate (x, source='abc')
   y = x

   if (y /= 'abc') stop 1
end