Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/import.f90 @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! Test whether import works ! PR fortran/29601 subroutine test(x) type myType3 sequence integer :: i end type myType3 type(myType3) :: x if(x%i /= 7) call abort() x%i = 1 end subroutine test subroutine bar(x,y) type myType sequence integer :: i end type myType type(myType) :: x integer(8) :: y if(y /= 8) call abort() if(x%i /= 2) call abort() x%i = 5 y = 42 end subroutine bar module testmod implicit none integer, parameter :: kind = 8 type modType real :: rv end type modType interface subroutine other(x,y) import real(kind) :: x type(modType) :: y end subroutine end interface end module testmod program foo integer, parameter :: dp = 8 type myType sequence integer :: i end type myType type myType3 sequence integer :: i end type myType3 interface subroutine bar(x,y) import type(myType) :: x integer(dp) :: y end subroutine bar subroutine test(x) import :: myType3 import myType3 ! { dg-warning "already IMPORTed from" } type(myType3) :: x end subroutine test end interface type(myType) :: y type(myType3) :: z integer(8) :: i8 y%i = 2 i8 = 8 call bar(y,i8) if(y%i /= 5 .or. i8/= 42) call abort() z%i = 7 call test(z) if(z%i /= 1) call abort() end program foo