| ! { dg-do run } |
| ! { dg-options "-O" } |
| ! Test the fix for PR29216 in which function results did not |
| ! get default initialization. |
| ! Contributed by Stephan Kramer <stephan.kramer@imperial.ac.uk> |
| ! |
| type A |
| integer, pointer:: p => null () |
| integer:: i=3 |
| end type A |
| type(A):: x,y |
| if (associated(x%p) .or. x%i /= 3) STOP 1 |
| x=f() |
| if (associated(x%p) .or. x%i /= 3) STOP 2 |
| x=g() |
| if (associated(x%p) .or. x%i /= 3) STOP 3 |
| contains |
| function f() result (fr) |
| type(A):: fr |
| if (associated(fr%p) .or. fr%i /= 3) STOP 4 |
| end function f |
| function g() |
| type(A):: g |
| if (associated(g%p) .or. g%i /= 3) STOP 5 |
| end function g |
| end |
