12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455 |
- from numpy.testing import assert_
- import numpy.distutils.fcompiler
- g77_version_strings = [
- ('GNU Fortran 0.5.25 20010319 (prerelease)', '0.5.25'),
- ('GNU Fortran (GCC 3.2) 3.2 20020814 (release)', '3.2'),
- ('GNU Fortran (GCC) 3.3.3 20040110 (prerelease) (Debian)', '3.3.3'),
- ('GNU Fortran (GCC) 3.3.3 (Debian 20040401)', '3.3.3'),
- ('GNU Fortran (GCC 3.2.2 20030222 (Red Hat Linux 3.2.2-5)) 3.2.2'
- ' 20030222 (Red Hat Linux 3.2.2-5)', '3.2.2'),
- ]
- gfortran_version_strings = [
- ('GNU Fortran 95 (GCC 4.0.3 20051023 (prerelease) (Debian 4.0.2-3))',
- '4.0.3'),
- ('GNU Fortran 95 (GCC) 4.1.0', '4.1.0'),
- ('GNU Fortran 95 (GCC) 4.2.0 20060218 (experimental)', '4.2.0'),
- ('GNU Fortran (GCC) 4.3.0 20070316 (experimental)', '4.3.0'),
- ('GNU Fortran (rubenvb-4.8.0) 4.8.0', '4.8.0'),
- ('4.8.0', '4.8.0'),
- ('4.0.3-7', '4.0.3'),
- ("gfortran: warning: couldn't understand kern.osversion '14.1.0\n4.9.1",
- '4.9.1'),
- ("gfortran: warning: couldn't understand kern.osversion '14.1.0\n"
- "gfortran: warning: yet another warning\n4.9.1",
- '4.9.1'),
- ('GNU Fortran (crosstool-NG 8a21ab48) 7.2.0', '7.2.0')
- ]
- class TestG77Versions:
- def test_g77_version(self):
- fc = numpy.distutils.fcompiler.new_fcompiler(compiler='gnu')
- for vs, version in g77_version_strings:
- v = fc.version_match(vs)
- assert_(v == version, (vs, v))
- def test_not_g77(self):
- fc = numpy.distutils.fcompiler.new_fcompiler(compiler='gnu')
- for vs, _ in gfortran_version_strings:
- v = fc.version_match(vs)
- assert_(v is None, (vs, v))
- class TestGFortranVersions:
- def test_gfortran_version(self):
- fc = numpy.distutils.fcompiler.new_fcompiler(compiler='gnu95')
- for vs, version in gfortran_version_strings:
- v = fc.version_match(vs)
- assert_(v == version, (vs, v))
- def test_not_gfortran(self):
- fc = numpy.distutils.fcompiler.new_fcompiler(compiler='gnu95')
- for vs, _ in g77_version_strings:
- v = fc.version_match(vs)
- assert_(v is None, (vs, v))
|