c { dg-do compile } c c Following line added on transfer to gfortran testsuite c { dg-excess-errors "" } c C JCB comments: C g77 doesn't accept the added line "integer(kind=7) ..." -- C it crashes! C C It's questionable that g77 DTRT with regarding to passing C %LOC() as an argument (thus by reference) and the new global C analysis. I need to look into that further; my feeling is that C passing %LOC() as an argument should be treated like passing an C INTEGER(KIND=7) by reference, and no more specially than that C (and that INTEGER(KIND=7) should be permitted as equivalent to C INTEGER(KIND=1), INTEGER(KIND=2), or whatever, depending on the C system's pointer size). C C The back end *still* has a bug here, which should be fixed, C because, currently, what g77 is passing to it is, IMO, correct. C No options: C ../../egcs/gcc/f/info.c:259: failed assertion `ffeinfo_types_[basictype][kindtype] != NULL' C -fno-globals -O: C ../../egcs/gcc/expr.c:7291: Internal compiler error in function expand_expr c Frontend bug fixed by JCB 1998-06-01 com.c &c changes. integer i4 integer(kind=8) i8 integer(kind=8) max4 data max4/2147483647/ i4 = %loc(i4) i8 = %loc(i8) print *, max4 print *, i4, %loc(i4) print *, i8, %loc(i8) call foo(i4, %loc(i4), i8, %loc(i8)) end subroutine foo(i4, i4a, i8, i8a) integer(kind=7) i4a, i8a integer(kind=8) i8 print *, i4, i4a print *, i8, i8a end