| ! { dg-do compile } | |
| ! { dg-additional-options "-Wuninitialized -Wmaybe-uninitialized" } | |
| subroutine foo | |
| implicit none | |
| integer :: i | |
| !GCC$ ATTRIBUTES noreturn :: mpi_abort | |
| if (getpid() == 1) then | |
| call mpi_abort() | |
| else | |
| i = 8 | |
| endif | |
| if (i > 0) print *, i | |
| end subroutine |