https://gcc.gnu.org/bugzilla/show_bug.cgi?id=79402
--- Comment #2 from stefano.zaghi at gmail dot com --- Dear Paul, thank you for the insight. Trust me, all GNU gfortran developers are heroes! Cheers Stefano Zaghi Ph.D. Aerospace Engineer Research Scientist, Dept. of Computational Hydrodynamics at CNR-INSEAN p: +39 0650299260 | m: +39 3497730036 | e: stefano.za...@gmail.com Member of Fortran-FOSS-Programmers Codes Showcase OFF Open source Finite volumes Fluid dynamics code Lib_VTK_IO Fortran library to write and read data conforming the VTK standard FLAP Fortran command Line Arguments Parser for poor men BeFoR64 Base64 encoding/decoding library for FoRtran poor men FiNeR Fortran INI ParseR and generator for FoRtran poor men IR_Precision Fortran (standard 2003) module to develop portable codes FoBis.py Fortran Building System for poor men PreForM.py Preprocessor for Fortran poor men MaTiSSe.py Markdown To Impressive Scientific Slides On Tue, Feb 7, 2017 at 12:45 PM, pault at gcc dot gnu.org <gcc-bugzi...@gcc.gnu.org> wrote: > https://gcc.gnu.org/bugzilla/show_bug.cgi?id=79402 > > Paul Thomas <pault at gcc dot gnu.org> changed: > > What |Removed |Added > ---------------------------------------------------------------------------- > Status|UNCONFIRMED |NEW > Last reconfirmed| |2017-02-07 > CC| |pault at gcc dot gnu.org > Assignee|unassigned at gcc dot gnu.org |pault at gcc dot > gnu.org > Ever confirmed|0 |1 > > --- Comment #1 from Paul Thomas <pault at gcc dot gnu.org> --- > Dear Stefano (and Chris), > > I can confirm that the bug is there on the latest 7.0.1. This is the > minimum testcase that exhibits the problem. > > module mod > interface myfun > module function fun1(n) result(y) > integer, intent(in) :: n > real, dimension(n) :: y > end function fun1 > end interface myfun > > end module mod > > submodule (mod) submod > contains > module procedure fun1 > > end procedure fun1 > end submodule > > It appears that 'n' doesn't get treated as a dummy for reasons that I > do not see right now. > > Bizarrely, this works perfectly and might be a good workaround for > you, omitting the 'source' part of the allocate, if you are assigning > to y somewhere else: > > module mod > interface myfun > module function fun1(n) result(y) > integer, intent(in) :: n > real, allocatable, dimension(:) :: y > end function fun1 > end interface myfun > > end module mod > > submodule (mod) submod > contains > module procedure fun1 > allocate (y(n), source = [(float(i), i = 1,n)]) > end procedure fun1 > end submodule > > use mod > print *, fun1(5) > end > > I don't feel much like a 'superhero' right now:-( I have spent the last month > moving between countries and have only just got set up to do anything > gfortran-ish in the last 24 hours. > > Thanks > > Paul > > -- > You are receiving this mail because: > You reported the bug.
