gcc/testsuite/gfortran.dg/pr68055.f90

   1 ! { dg-do compile }
   2 ! PR fortran/68055
   3 ! Original code contributed by Gerhard Steinmetz
   4 ! gerhard dot steinmetz dot fortran at t-online dot de
   5 !
   6    integer*3 c    ! { dg-error "not supported at" }
   7    real*9 x       ! { dg-error "not supported at" }
   8    logical*11 a   ! { dg-error "not supported at" }
   9    complex*42 z   ! { dg-error "not supported at" }
  10    c = 1
  11    x = 1
  12    call foo(a)
  13 end