Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gfortran.dg/pdt_18.f03 @ 144:8f4e72ab4e11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix segmentation fault caused by nothing next cur_op to end
author Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Sun, 23 Dec 2018 21:23:56 +0900
parents 04ced10e8804
children
line wrap: on
line source

! { dg-do compile }
!
! Test the fix for PR82589
!
! Contributed by G Steinmetz  <gscfq@t-online.de>
!
module m
   type t(a)
      integer, KIND, private :: a        ! { dg-error "attribute conflicts with" }
      integer, KIND, allocatable :: a    ! { dg-error "attribute conflicts with" }
      integer, KIND, POINTER :: a        ! { dg-error "attribute conflicts with" }
      integer, KIND, dimension(2) :: a   ! { dg-error "attribute conflicts with" }
      integer, len, private :: a         ! { dg-error "attribute conflicts with" }
      integer, len, allocatable :: a     ! { dg-error "attribute conflicts with" }
      integer, len, POINTER :: a         ! { dg-error "attribute conflicts with" }
      integer, len, dimension(2) :: a    ! { dg-error "attribute conflicts with" }
      integer, kind :: a
   end type
end