BUG: FOR3294 Error Using Module Inside Module Procedure

MORE INFORMATION

Steps to Reproduce Problem

1. Using the sample code provided, create a module and program file.
2. Compile and link the module and program files together.

Sample Code to Illustrate Problem and Workaround

! Compile options needed: none

! --- mods.for ---

      module types
        type my_type
            real :: x
        end type my_type
      end module types

      module funcs
!     use types               ! uncomment this line for first workaround
      contains
        function my_func(z1) result(z2)
            use types         ! comment this line for first workaround
            implicit none
            real z1
            type(my_type) z2
            z2 % x = z1
        end function my_func
      end module funcs

! --- prog.for ---

      program test
        use types
        use funcs
        implicit none
        real a
        type (my_type) :: b

        a = 1.0
        b = my_func(a)
      end program test