[Bug fortran/38065] New: bug5

["clerman at fuse dot net" <gcc-bugzilla at gcc dot gnu dot org>]

Hello,

Thank you for fixing the last bug I reported, number 37445.

I am attempting to build my lens design program. I encounter the following
errors when I compile file geomotfM.f90:

/home/norm/design/source/geomotfM.f90:836.4:

    function CreateLine ( RayData, MaxFreq, NoOfGoodRays, ChromaticWeights, Err
   1
Error: PUBLIC function 'createline' at (1) cannot be of PRIVATE type 'tline'

This is incorrect. Both the type TLine and the function CreateLine are private
to the module. The NAG, Intel and g95 compilers all compile this.

I tried to reproduce this problem with a small example, but I did not succeed. 

As soon as I am assigned a bug number, I will upload a tar file, bug5.tgz to
the following address: gcc-bugzilla@gcc.gnu.org. Unpack the file and invoke the
shell script bug5.sh to reproduce the problem.

I'll indicate the bug number in the subject line.

I am running Open SuSE 10.1 on a dual core Athlon chip. I'm using the gcc-trunk
build:

norm@oxford:~/design/gfortran/production> gfortran --version
GNU Fortran (GCC) 4.4.0 20081109 (experimental) [trunk revision 141714]
Copyright (C) 2008 Free Software Foundation, Inc.

Thank you for your attention.

Norm Clerman


-- 
           Summary: bug5
           Product: gcc
           Version: 4.4.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: clerman at fuse dot net


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38065