Compilation of the attached F90 module which uses liked lists, causes the 
following error message to 
appear repeatedly. removing the use of => null() to initialise the pointers 
causes comilation to suceed. 
The code compiles sucesfully under compac visual fortran on a PC and Pro 
Fortran on an SGI system.

The output from "gfortran -v -save-temps -c CutCellRoutines.f90" is

Using built-in specs.
Target: powerpc-apple-darwin7.8.0
Configured with: ../gcc/configure --prefix=/usr/local/gfortran 
--enable-languages=c,f95
Thread model: posix
gcc version 4.1.0 20050325 (experimental)
 /usr/local/gfortran/libexec/gcc/powerpc-apple-darwin7.8.0/4.1.0/f951 
CutCellRoutines.f90 -fPIC 
-quiet -dumpbase CutCellRoutines.f90 -auxbase CutCellRoutines -version -o 
CutCellRoutines.s
GNU F95 version 4.1.0 20050325 (experimental) (powerpc-apple-darwin7.8.0)
        compiled by GNU C version 3.3 20030304 (Apple Computer, Inc. build 
1640).
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
 In file CutCellRoutines.f90:35

  type solid_body_node
                     1
Error: Pointer assignment target is neither TARGET nor POINTER at (1)
 In file CutCellRoutines.f90:35

  type solid_body_node
                     1
Error: Pointer assignment target is neither TARGET nor POINTER at (1)
 In file CutCellRoutines.f90:35

(*** error repeated 8 times ***)

-- 
           Summary: use of type(x), pointer:: next => null() causes
                    compilation to fail with a spurious error message
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: d dot m dot Ingram at MMU dot ac dot uk
                CC: gcc-bugs at gcc dot gnu dot org
 GCC build triplet: powerpc-apple-darwin7.8.0
  GCC host triplet: powerpc-apple-darwin7.8.0
GCC target triplet: powerpc-apple-darwin7.8.0


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

Reply via email to