Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr91564.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | |
children |
line wrap: on
line source
! { dg-do compile } ! PR fortran/91564 ! Contributed by Gerhard Steinmetz. program p integer i, j call kill (1, 2, 3) ! { dg-error "shall be an INTENT" } i = 42 call bar(i, j) end subroutine bar(n, m) integer, intent(in) :: n integer, intent(inout) :: m call kill (1, 3, n) ! { dg-error "shall be an INTENT" } call kill (1, 3, m) end subroutine bar