多个if语句命名不知道错误在哪儿

给多个IF语句命名出现错误

```program main
    implicit none 
    integer :: i,j,product
    inner: do i = 1,3
       outer: do j = 1,3
            product = i * j
            write(*,*)i,'*',j,'=',product
        end do inner
    end do outer
    end

```

 
```program main
    implicit none 
    integer :: i,j,product
    outer: do i = 1,3
       inner: do j = 1,3
            product = i * j
            write(*,*)i,'*',j,'=',product
        end do inner
    end do outer
    end