Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/use_10.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } module a implicit none interface operator(.op.) module procedure sub end interface interface operator(.ops.) module procedure sub2 end interface contains function sub(i) integer :: sub integer,intent(in) :: i sub = -i end function sub function sub2(i) integer :: sub2 integer,intent(in) :: i sub2 = i end function sub2 end module a program test use a, only: operator(.op.), operator(.op.), & operator(.my.)=>operator(.op.),operator(.ops.)=>operator(.op.) implicit none if (.my.2 /= -2 .or. .op.3 /= -3 .or. .ops.7 /= -7) call abort() end