2 ! This tests the patch for PR25024.
4 ! PR25024 - The external attribute for subroutine a would cause an ICE.
6 EXTERNAL A ! { dg-error "EXTERNAL attribute conflicts with SUBROUTINE" }
10 external ext ! { dg-error "EXTERNAL attribute conflicts with FUNCTION" }
16 external z ! OK no conflict
22 external ext ! OK, valid external reference.
23 external main ! { dg-error "PROGRAM attribute conflicts with EXTERNAL" }
27 external ext1 ! { dg-error "EXTERNAL attribute conflicts with FUNCTION" }
37 external inv ! { dg-error "EXTERNAL attribute conflicts with FUNCTION" }