gcc/testsuite/gfortran.dg/inquiry_type_ref_2.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f95" }
   3 !
   4 ! Test the implementation of inquiry part references (PR40196):
   5 ! Check the standards are correctly adhered to.
   6 !
   7 ! Contributed by Tobias Burnus  <burnus@gcc.gnu.org>
   8 !
   9 program main
  10    character(4) :: a
  11    complex :: z
  12    integer :: i
  13    a%len = 2       ! { dg-error "Fortran 2003: LEN part_ref" }
  14    i = a%kind      ! { dg-error "Fortran 2003: KIND part_ref" }
  15    print *, z%re   ! { dg-error "Fortran 2008: RE or IM part_ref" }
  16    print *, z%im   ! { dg-error "Fortran 2008: RE or IM part_ref" }
  17 end