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) 13end 14