! Program to check using parent variables in more than one contained functionprogram contained_3   implicit none   integer varcontains   subroutine one      var = 1   end subroutine   subroutine two      var = 2   end subroutineend program