| ! Check that null initialization of pointer variable works. | |
| ! { dg-do run } | |
| program pointer_init_1 | |
| type t | |
| real x | |
| end type | |
| type(t), pointer :: a => NULL() | |
| real, pointer :: b => NULL() | |
| character, pointer :: c => NULL() | |
| integer, pointer, dimension(:) :: d => NULL() | |
| if (associated(a)) STOP 1 | |
| if (associated(b)) STOP 2 | |
| if (associated(c)) STOP 3 | |
| if (associated(d)) STOP 4 | |
| end |