gcc/testsuite/gfortran.dg/proc_assign_2.f90

   1 ! { dg-do compile }
   2 ! This checks the fix for PR34910, in which the invalid reference
   3 ! below caused an ICE.
   4 !
   5 ! Contributed by Daniel Franke <dfranke@gcc.gnu.org>
   6 !
   7 MODULE foo
   8 CONTAINS
   9   INTEGER FUNCTION f()
  10   f = 42
  11   CONTAINS
  12     LOGICAL FUNCTION f1()
  13       f1 = .TRUE.
  14     END FUNCTION
  15
  16     LOGICAL FUNCTION f2()
  17       f1 = .FALSE.  ! { dg-error "is not a variable" }
  18     END FUNCTION
  19   END FUNCTION
  20 END MODULE
  21 ! { dg-final { cleanup-modules "foo" } }