| ! { dg-do compile } | |
| ! { dg-additional-options "-O -fno-tree-loop-ivcanon -fno-tree-ccp -fno-tree-ch -finline-small-functions" } | |
| module foo | |
| INTEGER, PARAMETER :: ONE = 1 | |
| end module foo | |
| program test | |
| use foo | |
| integer :: a(ONE), b(ONE), c(ONE), d(ONE) | |
| interface | |
| function h_ext() | |
| end function h_ext | |
| end interface | |
| c = j() | |
| if (any (c .ne. check)) call myabort (7) | |
| contains | |
| function j() | |
| integer :: j(ONE), cc(ONE) | |
| j = cc - j | |
| end function j | |
| function get_d() | |
| end function get_d | |
| end program test | |