Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/import3.f90 @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! { dg-shouldfail "Invalid use of IMPORT" } ! Test invalid uses of import ! PR fortran/29601 subroutine test() type myType3 import ! { dg-error "only permitted in an INTERFACE body" } sequence integer :: i end type myType3 end subroutine test program foo import ! { dg-error "only permitted in an INTERFACE body" } type myType sequence integer :: i end type myType type myType3 sequence integer :: i end type myType3 interface import ! { dg-error "only permitted in an INTERFACE body" } subroutine bar() import foob ! { dg-error "Cannot IMPORT 'foob' from host scoping unit" } end subroutine bar subroutine test() import :: ! { dg-error "Expecting list of named entities" } end subroutine test end interface end program foo