1! { dg-do compile } 2! Tests the fix for 25083, in which the compiler failed to detect that 3! data variables in BLOCK DATA were not in COMMON. 4! 5! Contributed by Joost VandeVondele <jv244@cam.ac.uk> 6! 7 BLOCK DATA D 8 INTEGER I ! { dg-error "must be in COMMON" } 9 DATA I /1/ 10 END BLOCK DATA 11END 12