------- Comment #1 from pinskia at gcc dot gnu dot org  2006-05-02 07:22 -------
Confirmed, not fixed by the patch which fixes PR 26626.
Here is a reduced Fortran testcase:
MODULE parallel_rng_types
  INTEGER, PARAMETER :: dp=KIND(0.0D0)
  TYPE rng_stream_type
    REAL(KIND=dp), DIMENSION(1) :: bg,cg
    LOGICAL                       :: antithetic
  END TYPE
CONTAINS
  SUBROUTINE reset_to_next_rng_substream(rng_stream,error)
    TYPE(rng_stream_type), POINTER           :: rng_stream
    LOGICAL                                  :: failure
    CALL cp_assert(ASSOCIATED(rng_stream),routineP,error,failure)
    IF (.NOT.failure) THEN
      rng_stream%bg = u
      rng_stream%cg = u
    END IF
  END SUBROUTINE reset_to_next_rng_substream
END MODULE

-----
I might get a reduced C one soon or not.


-- 

pinskia at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2006-05-02 07:22:34
               date|                            |


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

Reply via email to