用gfortran 编译 .F 文件出现语法错误

用gfortran 编译 .F 文件出现语法错误。我的gfortran版本是7.5.0

ftst_path.F:28:72:

   if ((path_len /= LEN(FILE_NAME)) .OR.                             &
                                                                    1

Error: Syntax error in expression at (1)
ftst_path.F:41:72:

   if ((path_len /= LEN(FILE_NAME)) .OR.                             &
                                                                    1

Error: Syntax error in expression at (1)
ftst_path.F:55:72:

   if ((path_len /= LEN(FILE_NAME)) .OR.                             &
                                                                    1

Error: Syntax error in expression at (1)
ftst_path.F:68:72:

   if ((path_len /= LEN(FILE_NAME)) .OR.                             &
                                                                    1

Error: Syntax error in expression at (1)
Makefile:1281: recipe for target 'ftst_path

源代码为：
C Test with classic mode nf_open

  call check(nf_open(FILE_NAME, nf_classic_model, ncid))
  call check(nf_inq_path(ncid, path_len, path_in))

  if ((path_len /= LEN(FILE_NAME)) .OR.                             &
 &    (FILE_NAME /= TRIM(path_in)))                                 &
 &   call check(-1)
  call check(nf_close(ncid))

  path_in=REPEAT(" ", LEN(path_in))
  path_len=0

你好，我是有问必答小助手，非常抱歉，本次您提出的有问必答问题，技术专家团超时未为您做出解答


本次提问扣除的有问必答次数，将会以问答VIP体验卡（1次有问必答机会、商城购买实体图书享受95折优惠）的形式为您补发到账户。


因为有问必答VIP体验卡有效期仅有1天，您在需要使用的时候【私信】联系我，我会为您补发。