mips.c (mips16_copy_fpr_return_value): New function, split out from...

[official-gcc.git] / gcc / testsuite / gfortran.dg / impure_spec_expr_1.f90

! { dg-do compile }
! Checks the fix for PR33664, in which the apparent function reference
! n(1) caused a seg-fault.
!
! Contributed by Henrik Holst <holst@matmech.com>
!
module test
contains
  subroutine func_1(u,n)
    integer :: n
    integer :: u(n(1))  ! { dg-error "must be PURE" }
  end subroutine
end module test
! { dg-final { cleanup-modules "test" } }