Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/dynamic_dispatch_12.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 |
---|---|
64 | 64 |
65 subroutine runtest (result) | 65 subroutine runtest (result) |
66 use TestResult_mod, only: TestResult | 66 use TestResult_mod, only: TestResult |
67 class (TestResult) :: result | 67 class (TestResult) :: result |
68 call result%run() | 68 call result%run() |
69 if (result%numRun /= 1) call abort() | 69 if (result%numRun /= 1) STOP 1 |
70 end subroutine | 70 end subroutine |
71 | 71 |
72 end | 72 end |