findloc is in gfortran 9.1

This commit is contained in:
Martin Diehl 2019-09-21 23:03:53 -07:00
parent 25d91c79af
commit 51bd67fa29
1 changed files with 1 additions and 1 deletions

View File

@ -10,7 +10,7 @@ module future
contains contains
#if defined(__GFORTRAN__) || __INTEL_COMPILER < 1800 #if defined(__GFORTRAN__) && __GNUC__ < 9 || __INTEL_COMPILER < 1800
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief substitute for the findloc intrinsic (only for integer, dimension(:) at the moment) !> @brief substitute for the findloc intrinsic (only for integer, dimension(:) at the moment)
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------