gcc/testsuite/gfortran.dg/coarray/pr85510.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

!{ dg-do run }

! Contributed by Damian Rouson  <damian@archaeologic.codes>
! Check that PR fortran/85510 links.

module foo
contains
  subroutine bar()
    integer, save :: i[*] = 1
    associate(n=>1)
      if (i[1] /= 1) stop 1
    end associate
  end subroutine
end module

use foo
call bar()
end