proc_assign_2.f90

来自「用于进行gcc测试」· F90 代码 · 共 22 行

! { dg-do compile }
! This checks the fix for PR34910, in which the invalid reference
! below caused an ICE.
!
! Contributed by Daniel Franke <[e-mail]>
!
MODULE foo
CONTAINS
  INTEGER FUNCTION f()
  f = 42
  CONTAINS
    LOGICAL FUNCTION f1()
      f1 = .TRUE.
    END FUNCTION

    LOGICAL FUNCTION f2()
      f1 = .FALSE.  ! { dg-error "not a VALUE" }
    END FUNCTION
  END FUNCTION
END MODULE
! { dg-final { cleanup-modules "foo" } }