project('compiles_links_runs', 'fortran')

fc = meson.get_compiler('fortran')

code = '''error stop 123; end'''

if not fc.compiles(code)
  error('Fortran 2008 code failed to compile')
endif

if not fc.links(code)
  error('Fortran 2008 code failed to link')
endif

if fc.run(code).returncode() != 123
  error('Fortran 2008 code failed to run')
endif