gcc/testsuite/gfortran.dg/PR95352.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

! { dg-do compile }
!
! Test the fix for PR95352
! 
  
module ice6_m

  implicit none

contains

  function ice6_s(a) result(ierr)
    integer, intent(in) :: a(..)

    integer :: ierr

    integer :: lb

    select rank(a)
    rank(*)
      lb = lbound(a, dim=1)
      if(lbound(a, dim=1)/=lb) ierr = -1
    end select
    return
  end function ice6_s
  
end module ice6_m