请提这种错误是什么原因？

静待花开

先贴代码－－－－－－－－－－－－－－－

[Fortran] 纯文本查看 复制代码

program ex0816
  implicit none
  integer  :: a(5)=(/ 1,2,3,4,5 /)
  Call ShowArray1(a)
  write(6,*)a
  Stop
End

Subroutine ShowArray1(num1)
  implicit none
  integer  :: num1(:)
  num1 = num1 + 1
  write(6,*)num1
  return
End

－－－－－－－－－－－－－－－
自我感觉这个代码没有什么问题，但在IVF编译时（Debug），提示下面错误。但选择Release时，没有任何错误提示，编译成功。

后来查到按照下面设置即可。确实解决了问题，没有错误提示，编译成功。但心里有疑虑，这样的代码运行时，会不会有什么问题？高手能否指点下？

静待花开

非常感谢您，终于明白我的错在哪里了，非常感谢。
要是声明这个数组时，按照正常语法，直接声明其大小，就没有这种错误提示了。另外，我试了试，上面的代码虽然编译成功，但是输出结果仍然是原始值（1，2，3，4，5）。说明子程序没有起作用。再次感谢

静待花开

佩服。有道理。确认了解决这个问题就是两种方法：
（1）采用 integer  :: num1(:)  这样的声明方式，然后把subroutine封装module。这也也省事，就是不需要把子程序中每个数组的维度都传递进去。
（2）采用 integer  :: num1(5) 这样的声明方式，不需要module。