2 ! This checks the fix for PR20889 in wrong pointer types in derived
3 ! type constructors would either give no message or would segfault.
5 ! Contributed by Joost VandVondele <jv244@cam.ac.uk>
15 INTEGER, POINTER :: IP
19 ! Next line is the original => gave no warning/error.
20 DD
=TEST(NULL(IP
)) ! { dg-error "INTEGER but should be REAL" }
21 ! Would segfault here.
22 DD
=TEST(IP
) ! { dg-error "INTEGER but should be REAL" }
23 ! Check right target type is OK.
25 ! Check non-pointer is OK.
27 ! Test attempted conversion from character to real.
28 EE
= TEST1("e") ! { dg-error "convert CHARACTER" }