Quantcast
Channel: Recent posts
Viewing all articles
Browse latest Browse all 415

Internal compiler error for module function with pointer return

$
0
0

This code re-produces:

module A
   implicit none
   interface
      pure real module function getItem(id) result(res)
         integer, intent(in) :: id
         pointer :: res
      end
   end interface
   real, target :: items(10)
end module

submodule(A) A1
   implicit none
contains
   pure real module function getItem(id) result(res)
      integer, intent(in) :: id
      pointer :: res
      res => items(id)
   end
end submodule

 


Viewing all articles
Browse latest Browse all 415

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>