Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/interface_19.f90 @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | 04ced10e8804 |
children |
comparison
equal
deleted
inserted
replaced
111:04ced10e8804 | 131:84e7813d76e9 |
---|---|
14 intent(in) :: x | 14 intent(in) :: x |
15 end function a | 15 end function a |
16 end interface | 16 end interface |
17 if(present(a)) then | 17 if(present(a)) then |
18 write(temp,'(f16.10)')a(4.0d0) | 18 write(temp,'(f16.10)')a(4.0d0) |
19 if (trim(temp) /= ' -0.6536436209') call abort | 19 if (trim(temp) /= ' -0.6536436209') STOP 1 |
20 endif | 20 endif |
21 end subroutine sub | 21 end subroutine sub |
22 end module m | 22 end module m |
23 | 23 |
24 use m | 24 use m |