gnu / gcc / e5cfb9cac1d7aba9a8ea73bfe7922cfaff9d61f3 / . / gcc / testsuite / gfortran.dg / equiv_constraint_5.f90

! { dg-do compile } | |

! { dg-options "-O0" } | |

! PR20902 - Overlapping initializers in an equivalence block must | |

! have the same value. | |

! | |

! The code was replaced completely after the fix for PR30875, which | |

! is a repeat of the original and comes from the same contributor. | |

! The fix for 20902 was wrong. | |

! | |

! Contributed by Joost VandeVondele <jv244@cam.ac.uk> | |

! | |

TYPE T1 | |

sequence | |

integer :: i=1 | |

END TYPE T1 | |

TYPE T2 ! OK because initializers are equal | |

sequence | |

integer :: i=1 | |

END TYPE T2 | |

TYPE T3 | |

sequence | |

integer :: i=2 | |

END TYPE T3 | |

TYPE(T1) :: a1 | |

TYPE(T2) :: a2 | |

TYPE(T3) :: a3 | |

EQUIVALENCE (a1, a2) | |

EQUIVALENCE (a1, a3) ! { dg-error "Overlapping unequal initializers" } | |

write(6, *) a1, a2, a3 | |

END | |