gcc/testsuite/gfortran.dg/use_rename_9.f90

   1 ! { dg-do compile }
   2 !
   3 ! Test the fix for PR86906, in which a spurious error was generated
   4 ! by 'config' in the subroutine having the same symbol name as the
   5 ! renamed 'foo_config'.
   6 !
   7 ! Contributed by Damian Rouson  <damian@sourceryinstitute.org>
   8 !
   9 module foo
  10   type config
  11   end type
  12 end module
  13   use foo, only: foo_config => config
  14 contains
  15   subroutine cap
  16     integer config
  17     type(foo_config) extra
  18   end subroutine
  19 end