https://gcc.gnu.org/bugzilla/show_bug.cgi?id=40737

Josh Hykes <joshuahykes at yahoo dot com> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |joshuahykes at yahoo dot com

--- Comment #17 from Josh Hykes <joshuahykes at yahoo dot com> ---
I think the problem I'm seeing is the same issue; I'm posting it here for an
additional test case:

$ cat scan_bug.f90 
   module test_mod
!
   type t1
      character(8)  :: string
   end type t1
!
   type t2
     type(t1), pointer :: fp(:)
   end type t2
!
   type t3
      type(t2), pointer :: as
   end type t3
!
   type(t3), pointer :: as_typ(:)=>null()
!
   character(8),  pointer, public :: p(:)
!
   contains
!
   subroutine as_set_alias (i)
!
   implicit none
!
   integer, intent(in)    :: i
!
     p => as_typ(i)%as%fp(:)%string
!
   end subroutine as_set_alias
!
   end module test_mod

   program test_prog
   use test_mod
   call as_set_alias(1)
   end program test_prog

$ gfortran scan_bug.f90 
/tmp/cccR3cNH.o: In function `__test_mod_MOD_as_set_alias':
scan_bug.f90:(.text+0x139): undefined reference to `span.0'
collect2: error: ld returned 1 exit status

$ gfortran -v
Using built-in specs.
COLLECT_GCC=gfortran
COLLECT_LTO_WRAPPER=/home/joshua2/opt/gcc/linux-64/gcc-5.1.0/libexec/gcc/x86_64-unknown-linux-gnu/5.1.0/lto-wrapper
Target: x86_64-unknown-linux-gnu
Configured with: /home/joshua2/opt/gcc/linux-64/gcc-5.1.0-src/configure
--prefix=/home/joshua2/opt/gcc/linux-64/gcc-5.1.0
Thread model: posix
gcc version 5.1.0 (GCC)

Reply via email to