Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr68319.f90 @ 127:4c56639505ff
fix function.c and add CbC-example Makefile
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 18:46:58 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! PR fortran/68319 ! subroutine foo interface real function bar(i) f(i) = 2 * i ! { dg-error "cannot appear within" } end function bar real function bah(j) entry boo(j) ! { dg-error "cannot appear within" } end function bah real function fu(j) data i /1/ ! { dg-error "cannot appear within" } end function fu real function fee(j) 10 format('(A)') ! { dg-error "cannot appear within" } end function fee end interface end subroutine foo