Update ch04-00-if.md

Author: Euler-37

src/ch04-00-if.md

@@ -9,7 +9,8 @@ Fortran中使用条件语句`if(<condition>)then`来表示某条语句在满足
 ``` fortran
 program main
    implicit none
-   integer::angle=10
+   integer::angle
+   angle=10
    if (angle < 90) then
       write(*,*)"锐角"
    end if
@@ -29,17 +30,27 @@ $ fpm run
 当有两个分支时，需要增加`else`语句或`else if`语句
 
 ``` fortran
-if (angle < 90) then
-  write(*,*)"锐角"
-else
-  write(*,*)"不是锐角"
-end if
-!
-if (angle < 90) then
-  write(*,*)"锐角"
-else if(angle == 90) then
-  write(*,*)"直角"
-end if
+program main
+   implicit none
+   integer::angle
+   angle=90
+   if (angle < 90) then
+      write(*,*)"锐角"
+   else
+      write(*,*)"不是锐角"
+   end if
+   !
+   if (angle < 90) then
+      write(*,*)"锐角"
+   else if(angle == 90) then
+      write(*,*)"直角"
+   end if
+end program main
+```
+``` sh
+$ fpm run
+ 不是锐角
+ 直角
 ```
 - **注意**`else if`后面还有一个`then`
 
@@ -48,14 +59,40 @@ end if
 可以使用多个`else if`一直连接下去
 
 ``` fortran
-if (angle < 90) then
-  write(*,*)"锐角"
-else if(angle == 90) then
-  write(*,*)"直角"
-else if(angle < 180) then
-  write(*,*)"钝角"
-else if(angle == 180) then
-  write(*,*)"平角"
-end if
-```
-- Fortran中的if语句并没有短路机制，所以例如`if( n < 11 .and. a(n) > 1) `这样的语法并不能保证a(n)的下标不会越界
+program main
+   implicit none
+   integer::angle
+   angle=120
+   if (angle < 90) then
+      write(*,*)"锐角"
+   else if(angle == 90) then
+      write(*,*)"直角"
+   else if(angle < 180) then
+      write(*,*)"钝角"
+   else if(angle == 180) then
+      write(*,*)"平角"
+   end if
+end program main
+```
+``` sh
+$ fpm run
+ 钝角
+```
+- Fortran中的if语句**并没有短路机制**，所以例如`if( n <= 10 .and. a(n) > 1) `,数组a的大小为10，这样的语法并不能保证在运行时不出错。
+``` fortran
+program main
+   implicit none
+   integer::a(10)
+   integer::i
+   i=11
+   a=2
+   if (i<=10 .and.a(i)>1)then
+      write(*,*)"hello"
+   end if
+end program main
+```
+``` sh
+$ fpm run
+At line 7 of file app/main.f90
+Fortran runtime error: Index '11' of dimension 1 of array 'a' above upper bound of 10
+```