Subversion Repositories openrisc

! { dg-do run }

! Tests the patch for PR30025, aka 25818, in which the initialization

! code for the array a, was causing a segfault in runtime for a call

! to x, since n is missing.

!

! COntributed by Elizabeth Yip <elizabeth.l.yip@boeing.com>

      program test_entry

      common // j

      real a(10)

      a(1) = 999.

      call x

      if (j .ne. 1) call abort ()

      call y(a,10)

      if (j .ne. 2) call abort ()

      stop

      end

      subroutine x

      common // j

      real a(n)

      j = 1

      return

      entry y(a,n)

      call foo(a(1))

      end

      subroutine foo(a)

      common // j

      real a

      j = 2

      return

      end