gcc/testsuite/gfortran.dg/change_symbol_attributes_1.f90

   1 ! { dg-do compile }
   2 ! Fix for PR21730 - declarations used to produce the error:
   3 !   target        :: x                ! these 2 lines interchanged
   4 !                    1
   5 ! Error: Cannot change attributes of symbol at (1) after it has been used.
   6 !
   7 ! Contributed by Harald Anlauf <anlauf@gmx.de>
   8 !
   9 subroutine gfcbug27 (x)
  10   real, intent(inout) :: x(:)
  11
  12   real          :: tmp(size (x,1))  ! gfc produces an error unless
  13   target        :: x                ! these 2 lines interchanged
  14   real, pointer :: p(:)
  15
  16   p => x(:)
  17 end subroutine gfcbug27