From 2058f63b4e2d67cbe835499a43d8415f3c1d940d Mon Sep 17 00:00:00 2001 From: Rohit Goswami Date: Sat, 15 Jun 2024 22:58:00 +0000 Subject: BUG: Use an F77 snippet for sanity testing Fortran Closes gh-13319 --- mesonbuild/compilers/fortran.py | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'mesonbuild/compilers') diff --git a/mesonbuild/compilers/fortran.py b/mesonbuild/compilers/fortran.py index 9b288e99b..ad266e975 100644 --- a/mesonbuild/compilers/fortran.py +++ b/mesonbuild/compilers/fortran.py @@ -59,8 +59,8 @@ class FortranCompiler(CLikeCompiler, Compiler): return cargs, largs def sanity_check(self, work_dir: str, environment: 'Environment') -> None: - source_name = 'sanitycheckf.f90' - code = 'program main; print *, "Fortran compilation is working."; end program\n' + source_name = 'sanitycheckf.f' + code = ' PROGRAM MAIN\n PRINT *, "Fortran compilation is working."\n END\n' return self._sanity_check_impl(work_dir, environment, source_name, code) def get_optimization_args(self, optimization_level: str) -> T.List[str]: -- cgit v1.2.3