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